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Preface 



This publication describes the internal logic of the RPG II 
compilers and associated object programs for the following 
IBM systems: 

• IBM System/3 Model 6 

• IBM System/3 Model 8 

• IBM System/3 Model 10 Disk System 

• IBM System/3 Model 12 

• IBM System/3 Model 15 

The System/3 Model 8 is supported by System/3 Model 10 
Disk System control programming and program products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 
not referenced. It should be noted that not all devices 
and features which are available on the Model 10 are 
available on the Model 8. Therefore, Model 8 users should 
be familiar with the contents of IBM System/3 Model 8 
Introduction, GC21-5114. 

The purpose of the RPG II compiler is to produce an RPG 
II object program. This manual enables the reader to deter- 
mine the logic of specific areas of the object program and 
to relate these areas to the program listing and dump. 

In this publication the Model 15 logic (except that 
designated as 5704-RG2) refers to both System/3 
Program Numbers 5704-RG1 and 5704-RG2. 



Related Publications 

These IBM System/3 reference manuals are recommended 
for additional information: 

Model 6 

• Components R eference Manual, G A34-000 1 

• Halt Guide, GC21-7541 

• RPG U Reference Manual, SC21-7 517 
Model 10 Disk System 

| • Components Reference Manual, GA2 1-9236 

• Halt Guide, GC21-7540 

• RPG II Reference Manual, SC21-7 504 
| Model 12 

• Components Reference Manual, GA2 1-9236 

• /fc/fGukfe, GC21-5145 

• RPG n Reference Manual, SC2 1-7504 
Model 15 

[ • Components Reference Manual, GA2 1-9236 

• System Messages, GC2 1-5076 

• RPG II Reference Manual, SC21-7 504 
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The following program logic manuals are reference in this 
manual via function/module names. The following charts 
tie the function/module names to the correct manual: 

Model 6, Model 10 Disk System, and Model 12. 



Model 12 System Control Program Logic 
Manual, SY21-0046 




Disk Systems System Control Program 
Logic Manual, SY2 1-0502 (Models 6 and 10) 




X 
X 
X 
X 
X 
X 
X 


Disk Systems Data Managemen t and Input/ 
Output Supervisor Logic Manual, SY2 1-0512 
(Models 6 and 10) 




X 

X 
X 

X 


Disk Systems Binary Synchronous Communi- 
cations Programming Support Input/Output 
Control System Logic Manual, SY21-0526 




ALLOCATE 




OPEN 




X 
X 


CLOSE 




EOJ , 




SYSLOG 






D. M. (data management) 




X 


ROLLOUT . . 




BSC-IOCS 


X 





How this Publication is Organized 

This publication is divided into the following sections: 

1 . Introduction contains an overview of operational, 
environmental, and physical characteristics of the 
compiler. 

2. Program Logic describes the functions of each phase 
and the program flow from phase to phase. 

3. Data Areas describes the contents of all data areas used 
by two or more phases. 

4. Object Program contains the structure, logic flow, 
and storage layout of the object program. 

5. Appendixes describe the flowcharting techniques 
used in this publication and the Dump Facility. 



Model 15 



Supervisor and /OS Logic Manual, SY2 1-0033 



Data Management Logic Manual. SY21-0034 



Binary Synchronous Communications Program- 
ming Support Input/Output Control System 
Logic Manual, SY21-0526 



ALLOCATE .... 

OPEN 

CLOSE 

EOJ 

SYSLOG 

D. M. {data management) 

ROLLOUT 

BSC-IOCS 



IBM System/3 Model 15 System Data Areas and Diagnostic 
Aids, SY2 1-0032, contains all system data area formats. 
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Section 1. Introduction 



The IBM System/3 Model 6, Model 10 Disk System, Model 
12, and Model IS each use a separate, disk resident RFG 
II compiler. These compilers convert RPG II source pro- 
grams into machine language object programs. The com- 
pilers can also produce source program listing with diag- 
nostic messages. The compilers punch out the object 
programs on cards or enter the object program into an 
object library. 

I Since the Models 6, 10, 12, and 15 compilers are similar 
both in function and physical characteristics, the term 

| compiler will refer to all four compilers. Descriptions 
of compiler functions and routines apply to the four 
compilers unless otherwise noted. 



COMPILER OPERATION 

The RPG II Compiler consists of six groups of phases 
necessary to create an object program: 

Input and Compression phases 
Assign and Diagnostic phases 
Assemble I phases 
Pre-Assemble phases 
Assemble II phases 
Overlay phases 

There are approximately 130 phases that make up the six 
groups of phases. As each phase is brought into the Com- 
piler Phase Area, the previous phase is overlaid. Figure 1-1 
shows the order the groups of phases are loaded and also 
lists the functions of each group of phases. 



Introduction 1-1 



Licensed Material-Property of IBM 



£ 



Enter From System Loader {$$INP2 



3> 



RPGI 
Source 
Statements 
[from SSOURCE 
fr> Models 6, 10, and 
12 from System Input 
in Model 15) 




Input and Compression Phases 

(Sea Figure 2-2 for more detail) 

• Ininalizes COMMON and parameter lists. 

• Reads, checks, and lists source statements. 

• Compresses statements and tables. 

• Writes compressions 256 bytes at a time, or one 
compression at a time if less than 1280 bytes are 
in the work area. 



Assign and Diagnostic Phases 

(See Figure 2-3 for more detail) 

• Assigns addresses for: 

1 . Edit patterns and indicator masks. 

2. I/O areas. lOCBs, DTFs. 

3. Match and control field areas. 
■ Diagnoses syntax errors in: 

1 . Specification statements, 
2- Tables, arrays. 

• Builds: 

1 . Preopen DTFs and lOCBs for files. 

2. Table and array DTTs. 

3. File translate and file I/O tables. 

4. Alternate collating sequence table. 

5. Symbol table. 



Assemble I Phases 

(See Figure 2-4 for more detail) 

• Generates object coda for: 

1 . Input processing control routine. 

2. Output processing control routina. 

3. Multifile and matching records logic. 

4. Control field logic and move. 

5. Input mainline and Record 10. 

6. Move Input fields mainline. 



Pre-Assemble Phases 

(See Figure 2-5 for more detail) 

• Computes length and assigns entry address 
for calculations and output compressions. 

• Removes duplicate indicator tests. 

• Build segment list and text records for 
literals, constants, edit patterns, and 
output DTF parameters. 



Assemble II Phases 

(See Figure 2-6 for more detail) 

• Generates object code for; 

1 . Open and Close Mainlines. 

2. Calculation and output records. 

3. Test and resulting indicators. 



Listing of: 

• Source Statements 

• Diagnostic 
Messages 

• Storage Map 

• Symbol Table 



^> Data Flow 

^a> Control Fkw 



Overlay Phases 

(See Figure 2-7 for mora detail) 

• Models 6, 10 and 12 

• Assigns overlays and suboverlays. 

• Generates overlay table and Fetch routine. 

• Generates phase control statement, entry 
control statement, and external symbol list 
for linkage editor. 

• Model 15 

• Generates R -Module output of the compiler 




/Mod 
( 12 E 
\Edit. 



eis 6, 10 and\ 
12 Exit to Linkage] 
Editor (SLIMKBj/ 




Figure 1-1. RPG II Compiler Overview 
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COMPILER CONTROL REGION 

The Compiler Control Region, defined in phases $RPG 
and SRPIC, contains information needed by more than 
one phase. Figure 1-2 shows the contents of the Com- 
piler Control Region. For a detailed description of this 
area see Data Areas. 



Model 15 



2.5K 



3.0K 



Compiler Control Region 

• COMMON 

• Interphase Control Routines 

Data Files, Tables, Work Areas, lOCBs, 
Control Region Save Area 



Compiler 



Phase Area 



Work 
Area 



Input 
Buffer 



4.5K minimum 



(Model 1 5 uses> 
all of the 
partition. 



— (variable) — 
a <ea^ 



AQ* 



efW 



Output 

Buffer 



Source GET or System Input (Model 1 5 only) 
SYSPRINT (Models 12 and 15) 



Dump Control (Optional) 



Models 6 and 10 



1.5K 



Model 12 



2.0K 



2.75K 



3.0K 



512 bytes minimum 



256 bytes <The remaining main storage 
is used in 256-byte increments,) 



3.0K 
bytes 

minimum 



(Loaded to the h 
of main storage 
to the compiler. 



high portion 
available 



• Figure 1-2. layout of Main Storage During Operation of RPG II Compiler 



LINKAGE BETWEEN PHASES 

Phases are linked together with a branch to Interphase 
Control routine DKGCZZ and the 4-byte name of the next 
phase. The calling routine branches to the system loader 
which loads the next phase into main storage following 
the Interphase Control routines. Each new phase overlays 
the previous phase. XR1 and XR2 are not saved between 
phases. Some phases pass information to subsequent phases 
in the form of tables and constants stored temporarily in 
high-order main storage of the Compiler Control Region. 
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Section 2. Program Logic 



This section consists of a series of diagrams showing the 
functions , input, and output of each phase and each 
Interphase Control routine. 



COMPILER PHASE DESCRIPTIONS 

Figure 2-1 shows charting techniques used on Figures 2-2 
through 2-7 to describe each of the phases. Each figure 
describes all the phases within a particular group of 
phases. 



Pre-Assemble Phases 

The Pre-Assemble phases (Figure 2-5) elirninate repetitive 
indicator testing throughout the object program and mark 
duplicate code segments, literals, and edit words for later 
deletion. They also calculate the length of code to be 
generated for calculations and output, assign relative ad- 
dresses to code segments, select library subroutines, and 
generate a segment list for the Overlay phases. 



Assemble II Phases 



Input and Compression Phases 

The Input and Compression phases (Figure 2-2) read the 
RPG II specifications and the user's source statements, 
diagnose and list the source program, and place a com- 
pressed version of the source program in SWORK. 



Assign and Diagnostic Phases 

The Assign and Diagnostic phases (Figure 2-3) assign ad- 
dresses to all fields and data areas in the object program. 
These assigned areas are part of the overlay root segment 
and may not be overlaid. All noncode areas, buffers, 
control blocks, hold areas, work areas, input record fields, 
and tables are in the root segment. The Assign and Diag- 
nostic phases provide comprehensive error detection by 
locating errors not found by the Input and Compression 
phases. The error detection routines analyze errors both 
within and across compressions. Errors found are indicated 
by error numbers stored on disk and later printed out. 



The Assemble II phases (Figure 2-6) generate the object 
code which performs calculations, output, initialization, 
and end-of-job operations. The generated object code 
blocks are stored in SSOURCE. 



Overlay Phases 

The Overlay phases (Figure 2-7) determines the overlay 
structure of the object program, sort the blocks of gener- 
ated object code into the required overlay segments, and 
place the object program in the object library. 

For Models 6,10, and 12, the Overlay phases determine the 
overlay structure of the object program, sort the blocks of 
generated object code into the required overlay segments, 
and place the object program in the object library. 

For the Model 1 5, the Overlay phases generate the R-module 
output of the compiler for input to the Overlay linkage 
Editor, 



Assemble I Phases 

The Assemble I phases (Figure 2-4) generate all object 
code blocks except the calculations and output specified 
in the source program. Each phase checks for particular 
information in the compressions and generates code if 
that information is found. The generated object code 
blocks are stored in $WORK. 



The Overlay phases are shown in Figure 2-7. 



Dump Control Phase 

This phase is loaded to the high portion of the main 
storage available to the compiler when dump functions 
are requested. It intercepts all next phase calls and all 
text output calls. (See Appendix B.) 
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Forma! phase name (name found on microfiche) 



i/ 



Descriptive phase name 



$RPKB - Error Message List 

• Prints error messages. <$- 






Calls appropriate Phase ($RPKC-$RPKV) to get ^ 
error message. 
Error table. <g- 



Error messages. ^ 

If warning errors only 



Functions of this phase 



Input to this phase 
Output from this phase 



SR-5,6 <- 






<^— Major branches 



Next Phase 



The numbers (1 , 2, 3 f 4, etc.) 
indicate the Interphase Control 
routines used by this phase. 
Numbers and Interphase 
Control routines are listed at 
the end of each figure. 



Figure 2-1. Explanation of Program Organization Charts 
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<■ 



Enter From Program Setup ($$)NP2) 



I 



) 



SRPG - Compiler Initialization 



<X 



Initializes COMMON. 

Reads and diagnoses control statement. 

Moves IOB, storage size, and I/O 

parameters into COMMON. 

Builds control statement compression in COMMON. 

Printi control statement and any errors. 

Reads, lists, and compresses dump lunction 

specifications. 

Control statement, File allocation table built by 

scheduler 

Phase name compressions on SWORK. 

Control card compression in COMMON. 



SR-4,5,8 



I 



SRPEA — File Description Compression 

• Reads and diagnoses file description specification. 

• Builds file description compression. 

• Prints file description specification and any errors. 
H> File description specification. 

<£ File description compression on (WORK. 



SR- 1,2,3,4.5,6 



T 



i 



SRPEE - Telecommunications Compression 

• Reads and diagnoses telecommunication specifications. 

• Builds telecommunication compression. 

• Prints telecommunication specification and any errors. 
3> Telecommunications specification. 

<Jt Telecommunication compression on $WOR K. 



SR- 1,2, 3, 4, 5, 6 



T 



To Branch Table 



i 



To Branch Table 



SRPEI - 

• 
• 
• 

=o 


Input Compression 

Reads and diagnoses Input specifications. 

Builds input compression. 

Prints input specification and any errors. 

Input specification. 

I nput compression on $W0 R K. 


so 


-1,2,3,4,5,6 




1 

To Branch Table 



1 



SRPEB - Extension Compression 






Reads and diagnoses extension specification. 

Builds extension compression. 

Prints extension specification and any error. 

Extension specification. 

Extension compression on SWOR K. 



SR- 1,2,3,4.5,6 



T 



To Branch Table 



1 



SRPEC - Line Counter Compression 

• Reads and diagnoses line counter specifications. 

• Builds line counter compression. 

• Prints line counter specification and any errors. 
t> Line counter specification. 

Oc Line counter compression on $WOfl K. 



SR- 1,2,3,4,5,6 



I 



To Branch Table 



I 



$RPEK - Calculation Compression 

• Reads and diagnoses calculation specifications. 

• Builds calculation compression. 

• Prints calculation specification and any errors. 
;£> Calculation specification. 

<y: Calculation compression on SWORK. 



SR- 1,2. 3, 4, 5, 6 



J 



To Branch Table 



BRANCH TABLE: Enter at the name of the phase that sent you to 
the branch table. If the decision answer on the line entered is no, 
proceed downword until a decision is answered yes. Then proceed 
to the indicated phase. 



Enter 
From 
Phase 


Decision 


Go To 

Phase 


ID 


$RPEA 


♦If Extension Specification 


SRPEB 


A 


SRPEB 


♦If Line Counter Specification 


SRPEC 


B 


SRPEC 


♦If Telecommunication Specification 


SRPEE 


C 


SRPEE 


♦If Input Specification 


$RPEI 


D 


SRPEI 


♦If Calculation Specification 


SRPEK 


E 


SRPEK 


♦If Output Specification 


SRPEO 


2F 


$RPEO 


♦If End of File 


SRPFA 


2G 



Figure 2-2 (Part 1 of 2). Input and Compression Phases 
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$RPEO — Output-format Compression 

• Reads and diagnoses output-format specifications. 

• Builds output-format compression, 

• Prints output-formal specif icatian and any errors. 
;£> Output-format specification. 

■Or: Output-format compression on SWORK. 



SR- 1,2,3,4,5,6 



Note: Interphase Control routines that can be used by the Input 
and Compression Phases ere: 

SR1 - DRGCZA - Open a ComprtKion Area 

SR2 - DRGCZC - Write a Compression 

SR3 - DRGCZE - Close a Compression 

SR4 - DRGC2N - Get Next Source Record 

SR5 - DRGCZP - Printer Control 

SR6 - DRGCZZ - Call Next Compiler Phase 

SR7-PIOCS-DiskControJ 

See Figure 2-9 for a description of the Interphase Control routines. 

Note: Since fields in COMMON are input and/or output for all 
phases, COMMON is not listed as input or output. 



SRPFA - Copy Tables into Compressions 



Copies file translate, alternate collating sequence, 

end compile-iims tables from the input file to 

compression file. 

Builds a compression of data management entry 

points and module names. 

System Input (Model 15) or fSOURCE (file 

translate table, alternate collating sequence 

table, and compile-tfme table/array). 

File translate, alternate collating, compile-time 

table/array, and data management compressions 

onJWORK. 



SR- 1,2,3.4,5,6 



f Exi 



I 



Exit To Assign and Diagnostic phases 



) 



Figure 2-2 (Part 2 of 2). Input and Compressions Phases 
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Enter From Input and Compression 



phases J 



$RP|C - Post Compression Initialization 

• Loads and initializes the Dump Control 
routine if required. 

• Contains the following Interphase Control routines: 
DRGCZG, DRGCZH, DRGCFI, DRGCZK, DRGCZM, 
and DRGCZZ. {PI DCS and DftGCZP remain in storage 
from the Input and Compression phaset.1 



SR-6 



I 



i 



SRPJX - Check File Description Specifications 2 






Checks file description compression for non-disk 

dependent errors. 

If error file full ^H 



File description compressions. 

Updated file description compressions and 

errors indicated on error file. 



SR-6, 8, 9, 10, 11 



$RPEW - Post Compression and Initialization 

• Determines if Remote Terminal (col 48-51} and Re- 
mote Device (col 65-70} are valid and compresses 
them. 

• Resolves operation code to 1-byte mask. 

• Converts field light to 1-byte mask. (Model 6) 

• Diagnoses SET and KEY operation codes, (Model 6) 

• Updates calculation compressions. 

• Places error numbers and statement numbers 
in error file for errors. 
If error file is full I 



Of 



Calculation compressions. 

Updated calculation compressions and errors. 



SR-6, 8, 9, 10, 11 



*Q*J 



i 



$RPJZ - Check File Description Specifications. 3 



Checks file description compressions for disk 

device errors. 

If error file fullaS 



ZX> File description compressions. 
<£ Updated file description compressions and errors 
indicated on error file. 

SR-6, 9, 10, 11 



I 



►C") 



SRPIG - Check File Description Continuation Cards 

• Checks File Description compression for errors in 
Keyword (col 54-59), Blank Device (col 7-52. 68-72). 
and ASCII, BUFQFF, or Model 15 INDEX (col. 54-59). 

■ Checks for errors because of invalid tape record length. 
Invalid record length for tape ADDROUT files, and 
continuation specified for a non-tape file or files 
other than special files. 

■ Checks compressions for errors because of blanks in 
Filename (co) 7-14) or File Type (col 15). 

• Checks compressions for errors because of blanks in 
Device Entry (col 40-46) for Models 6. 10, and 12. ip. 
I f error is full ■■L^L^HL^L^L^Li^L^L^H 

l]> File Description compression, 

<& Updated File Description compression and errors. 



SR-6, 8, 9, 10, 11 



T 



$RPGF - 

• 
• 

• 
• 


Assign and Check Indicators 

Checks and assigns indicators 

Assigns each Indicator a mask and displacement relative 

to the beginning of the work area in RQCA. 

Determines halt indicators used. 

Assigns overflow indicators If not specified but needed. 




File description, input, calculations, and 

output-format compressions. 

Updated compressions, listing of indicators and any 

error*. 




SR 


-5,6,8,9,10,11 





>QaJ 



K^j 



I 



$RPJE - Check Calculation Specifications 1 

• Checks calculation compression for errors in field 
name, length, decimal position, AND/OR lines, 
indicators, Fact or 1, Factor 2, and Result field. 
If error file full Hi^BMBkHH LM 



* 
<5 



Calculation specifications. 

Updated calculation specifications and errors on 

error file. 



SR- 6.8.9. 10, 11 



K5 



SRPGG - Check Calculation Specifications 2 

• Checks calculation compression for errors in duplicate 
labels and invalid branching to subroutines. 

• Compresses and sets specification for numeric literals 
in calculations. 

error full L^L^L^HLilL^LWBMMH 



Z£> Calculation compressions. 
<£ Updated calculation compressions and errors 
indicated on error file. 



SR-6, 8.9,10, 11 



SRPJW - Check File Description Specifications 1 






Checks file description compression for non-device 

dependent erro rs. 

If error file full ■L^L^L^L^L^L^L^L^L^LM 



File description compressions. 

Updated file description compressions and any errors 

indicated on error file. 



SR-6, 8, 9, 10,11 



I 



I 



H=j 



$RPGU - Build Name T B ble 

• Builds a name table of compile-tlme and object-time 
tables. 

• Determines if there are duplicate symbols with 
conflicting entries in the name table. 

• Creates an entry if no entry is found in the name 
table. 

• Assigns a 2-byte address to each symbol in the name 
table. 

7£> Extension compressions. 

Name table and duplicate name Qffon. 



SR -5,6,8,9,10,11 



ri] 
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SRPJA - Check Input Specifications 1 



Checks input compression for errors in field, field 
length, sequence, look-ahead, AND/OR lines, and 

spread records. ^^ 

error full ■^^■^^^■^^■H 
If Model 15. ^^^^^^^^^^^^^^H 



Or 



I nput compressions and name table, 

Input compressions end any errors indicated 

on the error file. 



SR - 6, 8, 9, 10, 1 1 







SRPGV - Check Table/ Array 



♦ 



Sets bits in calculation compressions telling which 

table/array contains the most elements. 

Indicates number of elements in each table/array 

In output-format compressions. 

Builds filename table. 

If error file full lBBBBBBBBBBBBBBBBBilaBBBBBBBBBBBBBBBBBl 



File description, input calculation, output-format 
compressions and the symbol table. 
Filename table, update calculation end output-format 
compressions, and any errors indicated on the 
error file. 



SR-6,8,9, 10, 11 






1 



SRPGB - Process MFCM Print Spacifications (Model 15 
only) 

• Recognizes MFCM printing. 

• Changes print end position to a buffer displace- 
ment. 

• Sets bit in output compression to show print 
Dnly specified. 

• Determines the required size of MFCM print 
buffer. 

:£> F'fr description and output compressions. 
Or Updated output compressions. Highest tier 

used for MFCM 1 (1st byte) and MFCM2 (2nd 

bytefofCOMBYC. 




K^ 



SRPGX - Print Name Table 






Checks name table for unreferenced names. 

Generates qbject code for object time 

table/array DTTs. 

Diagnoses if Indexing is used for tables. 

Name table. 

Listing of unreferenced table/array names and 

error numbers, listing of table/array names, and 

object cade block of DTTs. 



SR-5,6, 12 



SRP'JK - Check File and Table/Array 

• Checks tor errors in filename, use of CONTD, 
extension code, match fields, alternate collating 
sequence table, and file translate table. 
If error file full ' 



♦ 
3> 




if tables and/or arrays are not used I 
Filename table, file description, extension, 
arternate collating sequence table, and file 
translate table. 
Updated compressions, and any errors indicated 
on the error file. 



SR - 6, 8, 9, 10, 1 1 







SRPHA - Build Symbol Table 



Builds a symbol table of field names. 
Determines if there are duplicate symbols with 
conflicting-definitions in the symbol table. 



If error file full lBBBBaBBBBBBVBBB^BBBBBWiaBBBBBBBBBl 
Zf> Input and calculation compressions. 
<X Symbol table, symbol table on scratch f Ha tor 

any overflow, and any errors indicated on error file. 



*& 



SR -5,6,8,9,10,11 



SRPGW - Check Name Table 



3> 



Checks name table and sets bits on in the table 

for unreferenced object-timetable/array names. 

Sett bits on in extension, input, calculation, and 

output-format compressions indicating names 

that are referenced. 

Checks for multiple definitions. 

Determines If index is invalid for arrays. 

Name table, extension, input, calculation, 

telecommunications, and output-format compressions. 

Updated compressions, and any errors indicated on 

error file. 



SR- 6, 8, 9, 10, 11 



I 






SRPHC - Check Symbol Table 






Checks symbol table and sea bits on in table for 

unreferenced fields. 

Assigns a 2-byte address to each referenced symbol. 

Sets bits on In input, calculation, and output-format 

compressions Indicating names that are referenced. 

Determines if field name index Is an alphabetic field. 

Determines If indexinqjjuse^o^ddrwne^^^^ 

If arror file full H 

Symbol table, input, calculation, telecommunication, 

and output-format oompreoioni. 

Updated symbol table end updated compressions. 



►C5J 



SR -6,8,9, 10, 11 
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I 



SRPHD - Print Symbol Table 

• Scant symbol table and compressions for unreferenced 
and undefined names and writes them. 

♦ If no compile-time tables/arrays 
3> Symbol table, input, calculation, output-format, 

and telecommunication compressions. 
Or Lilting of symbol table, undefined and 
unreferenced names, and labels used. 



SR-5, B, 8, 9, 10, 11 



I 



SRPGY - Build Compile-Time Tables 

• Builds a compile-time symbol table of compile-time 
table/array entries and a DTT record of table/array 
entries based on extension compressions. 

• Replaces the table/array name In the extension, input, 
calculation, and output-format compression with a 
6-byta parameter list. 
If record length exceeds 96 ^^| ^B^^| 



3> 



Extension, input, calculation, and output-format 

compressions. 

DTT records, updated compressions, and listing of 

compile-time symbol table, and compile-time symbol 

table. 



SR- 5, 6, 8, 9. 10,11, 12 



I 



SRPGH - Assign Filename and IOCS 

• Builds file input/output table. 

• Generates some initial object code of a constant 
area and some object-time addresses. 

• Calculates I OCB address. 

• Assigns addresses for lOCBs in fife input/output 
table, 

• Enters an internal code name for necessary data 
management module in file description compressions. 

• If no file description compressions I 
z£> File description compressions, and file translate 

table compressions. 
<Or File input/output table, updated file description 

and file translate table compressions, and Initialization 
object code block. 



SR-6, 8, 9, 10,11. 12 



I 



*0 



SRPGZ - Complle-Tlme Tabfe/Anay Code 

• Generates object code blocks for compije-time 

table/arrays. 
■£> Compile-time table/array compressions and 

compile-time symbol table. 
<£ Compile-time table/array object code blocks. 



SR -6,8,9, 10,11, 12 



I 



SRPGI - Assign Filename and DTF 

• Replaces the symbolic filename in the compressions 
with up to 13 bytes of file input/output table. 

• Assigns DTF addresses in file input/output table. 

• II no telecommunications ktstttttVHBaV HI 
r£> All compressions except file translate, and file 

input/output table. 
<£ Updated compressions, and updated file input/output 
table. 



SR-6, 8,9, 10, 11, 12 



SRPJU - Check Compile-Time Tables/ Arrays 

• Determines if compila-tl me table/array is in 
sequence when specified. 

• Determines if there is too much data for table/array 
entries, or if the re is not enough data. 

• If error file full I ■■■■ 



=€> Compile-time tabla/array compressions, and 

compile-time symbol table. 
<£ Listing of all tabtes/arrays and any errors are 

Indicated on the error file. 



SR - 5, 8, 9. 10, 1 1 



I 



l»j 



I 



M& 



SRPGK - Check Telecommunications Specifications 1 

• Checks for errors in filename, ITBs, station IDs, 
and ASCII. 

• Buitds telecommunications table. 

• Updates file in p ut /output table. 
If error file full 



♦ 




If 2770/2780 present I 

Telecommunication compressions and file 

input/output table. 

Telecommunications table, updated file input/output 

table and telecommunication compressions, explicit 

literal entries object code, and any errors are indicated 

on the error file. 



SR-6. 8, 9, 10,11, 12 



IP 



I 



SRPGL - Check Telecommunications Specifications 2 



• Checks for errors in autocall/autoanswer, look -ahead 

fields, and mat ching fields, 

error full LbssssssssssssssssssssssssSPHbbsssssssssssssV 
=C> All compressions, telecommunications table, and 

.File I/O table. 
<£ Updated telecommunications table, updated file 
I/O table, and any errors indicated on error file. 



SR-6, 8. 9. 10, 11 
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SRPGN- 


Build DTFs 


• 


Builds lOCBs for each file defined. 


• 


BuHds a pre-open DTF for each device used and 




for: [Models 6, 10, And 12) each disk, Console, 




BSCA. Ledger. DATA96, and SPECIAL file. 




(Model 16) BMh diik, CRT, BSCA, SPECIAL, 




and Device Independent file. 


• 


Assigns logical output buffer. 


x> 


File input/output table and telecommunication! 




table. 


<? 


lOCBsand pre-open DTFj. 


SR 


-6,12 



! 



SflPGR - Assign I/O Area* - for Models 6, 10, 12, and 15: 
MFCU1,MFCU2 t READ42, 
SPECIAL 
-for Model 15: MFCM1, 
MFCM2 READ01 
DISKET [Models 6, 10, and 12] 

• Generate* object code for Input/output areas, 
lOBs for each file, and error recovery procedure 
area, 

• Places address of the generated object code into 
the IOCB. 

• Places addresses of the assigned I/O areas into 
the DTF. 

IC> File Input/output table. 

<£ Generated object code block end updated DTF*. 



SR-6,12 



$RPGT - Assign I/O Areas 



CONSOLE, DISK, PRINTER, 
PR1NTR2,PRINT84,BSCA 



• Generates object code for input/output areas, 
lOBs for each file, and error recovery procedure 
area. 

• Places addass of generated object code into the 
IOCB. 

* Places addresses of assigned I/O areas Into the 
DTF. ^ ^^^^^_ 

or 15 a^MHLMLWBLMi 

♦ If Model 8, or 10 and: 

II D TSK45 files MMBL^L^L^MHLM 
Tape HLH^HBa^L^HHi^Ll 

tf no file translate or alternate collating 

tables 
:£> File input/output table. 
<X Generated object coda block end updated DTFs 



SR - 6, 12 



I 




SRPGS- 


Assign Shared I/O and Other Device Areas 


• 


Assigns shared I/O areas and places address in \ 




DTFs {Models 6, ID, and 12). 


• 


Assigns lOBs and extra work areas for files 




(Models 6, 10, 12, and 15). 


• 


Assign* areas for KEYBORD, LEDGER, 




TRACTR1,TRACTR2, DATA96, and CRT65 




{Mod 6). 


• 


Assigns areas for CRT77, Device Independent 




Devices, and DISKET (Mod 151. 


=o 


File input/output table. 


<* 


Updated DTFs. 


SR- 


-6, 12 



$RPHQ - Assign Alternate Collating Sequence and File 
Translate Tables 

• Generates object code for alternate collating sequence 
and file translate tables. 

• Places address of file translate tables in IOC8. 

• Pisces address of alternate sequence table in Root 
segment. 

l£> Alternate collating sequence tables compressions, 
file translate tables compressions, file description 
compressions, and IOCB. 

<X Updated IOCB, object code blocks for file translate 
and alternate collating tables. 



SR -6,8,9,10,11, 12 




SRPHS - Check Input Specifications 2 

• Checks usage errors in match and control fields. 

• Pieces length of fields In COMMON. 

• Builds a byte of information in input compressions to 
control processing of phases $RPPF, $RPPG, $RPPJ, 
SRPPL, and $R PPM. 

if error file full L^L^L^L^LBHHL^L^LflM 






Input compressions. 

Updated input compressions and any errors are 

indicated on error file. 



SR- 6. 9. 10,11,12 



I 



K«p 




SRPGJ - Remote Terminal/Dev tee Support 

• Checks terminal/device relationship, 

• Sets correct Data Management modules. 

• Defaults block l engths. 

If 






full L^L^L^L^L^HBhVBL^L^Ll 
Telecommunications table, file Input/output 
table file description compressions, T compressions. 
Updated T' table, file Input/output table. 



SR- 5,8,9, 10, 11,12 



I 



**J 



>±0 



SRPXA 



Build DRF and I/O Area for DISK 45 {Models 10 and 12) 
Disk 44, Disk 45 (Model 15L 
Generates the pre-open DTF for each DISK45 or 
DISK40 file. 

Generates the I/O areas for each DISK45or DISK40 file. 
Places addres ses of I/O areas in DTF. 

if files LMHLVL^LMHLIHHLVLM 



If no alternate collating tables or files translate 
tables ■j^^Hj^j^j^j^^^^Mj^j^j^l 



=0 



t$ 



File input/output table. 

Generated object code for DTFs and I/O areas for 

DISK45orDISK40f)les. 



SR-8. 12 



I 



■0 
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SRPXB - Build DTF and I/O Area for Tape 

■ Generates the pre-open DTF for each taps file. 

• Generates the t/O area for each tape file. 

• Places addresses of I/O areas in the DTF, 

• If no translate or alternate collating tables | 
:£> File input/output table. 
<£ Generated object code for DTFs and I/O areas 

for tape files. 



5R -6. 12 



[tj 



C3 



i 



SRPJP - Check Input Specifications 3 

♦ Checks for errors in AMD/OR line, field, filename, 
field name, record identifying indicator, look -ahead 
and length. 

rT> Input compressions. 

<£ Input compressions and any errors are indicated 
on the error file. 

♦ If output-format specifications next 

♦ If extension and line counter spec ifications 

♦ If calculations specifications next 

♦ If no more specifications or error file full 



SR-6,3,9, 10, 11 



$RPHT - Assign Control and Match Field Hold Areas and 
Edit Code Patterns 

• Assigns hold areas for match fields and control fields. 

• Assigns adit patterns. 

• Designates availability of different types of output. 

• Diagnoses errors in edit codes. 
If error file full 



♦ 




J f limits not specified. 

Output 'for mat compressions. 

Output-format compressions and hold area object 

code blocks. 



SR- 6,9. 11,12 






I 




$RPJS - Header/Trailer Assign and Diagnostics 



Generates trailer table. 

Checks for invalid use of look -ahead. 

Checks for invalid file specifications for spread 

card. 

Checks for more than 255 valid trailer specification*. 

Input compressions (128). 

Input compressions, trailer table, and any errors 

are indicated on error file. 

If error file full 



<5 




If output-format specification next 

If extension and line counter specification. 

If not Model 6 



SR - 6, 8, 9 



SRPHU - 


- Assign Limits File Hold Areas 


• 


Assigns key area tor files processed by SETLL. 


• 


Places address of key area in pre-open DTF. 


• 


Processes SETLL diagnostics. 


^> 


File description compressions, calculation 




compressions 


o 


Updated calculation compressions 


SR 


-6.8,9, 10, n, 12 





$RPJG - Check Calculation Specifications 3 (Model 6 only) 

• Determines SET/KEY combination 

• Checks KEY and SET operations for error. 
ZT> Calculation compressions. 

<5r Calculation compressions and any errors are indicated 
on error file. 



If error file full I 
SR-6,8,9, 10, 11 



SRPJJ - Control Field and Match Field Move Optimization 

• Sets a bit on in input compressions when a control 
field move can be combined with a succeeding 
control field move. 

• Sets a bit on in input compressions when a match field 
move can be combined with a succeeding match field 
move. 

• Updates the constant address and length for the 
control field move. 

• Updates the constant address and length for the match 
field move. 

_'£> Input compressions. 

<ji Updated input compressions. 



SR-6,8,9, 10, IT 



I 



*[6Aj 



SRPJL - Check Calculations Specification! 4 

• Checks for errors in length, sequence, FORCE. 

EXCPT, DEBUG, LOKUP, COMP, TESTZ,MVR, 

CHAIN, and result field. 
~£> Calculation compressions. 
Off Calculation compressions and any errors are indicated 

on error file. 

if error full L^L^L^L^L^L^L^L^L^L^L^LH 



SR-6,8,9, 10,11 






M*) 
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$RPJM - Cheek Output-Format Specifications 

• Checks -for errors in fetch overflow, stacker, indicators, 
record type, and line type. 
lO Line counter and output-format compressions, 
<jr Updated compressions and any errors are indicated 

on error file. ^^_^_^^^^^^___^^^^^ 
error file full ^^M^^^^MHI^^^H 



SR -6,8,9,10,11 



T 



►0 






$RPKA - Error Sort and Print 

• Sorts errors by error and statement number. 

• Builds sorted error table, 

• Prints error numbers and statement numbers. 
=0 Error file. 

<£ Error table and listing of error and statement 
numbers. 
If no errors ■■ ■■ 



SR-5,6,9, 10, 11 



SRPJN - Check Output-Format Specifications 2 

• Checks for errors In PAGE, "PLACE, and end 
positions, diagnose sterling sign relationships. 

l£> Output-foTmat compressions. 

<X Any errors a« i ndicated on error flte. 

If error Hie full ^L^L^HBla^iia^iiaV 



SR-6.8,9, 10. 11 



T 



►© 



SRPJO - Check Output- Format Specification* 3 

• Checks for errors in edit word, end position, 
indexing, length, and record identification. 
ZC* File description and output-format compressions. 
<E Any errors are i ndicated on error f ite. 

error file full faaaa^LaaaaaaMLa^Laaaaaaaaa 1 



SR-6, 8, 9, 10, 11 






( 



! 



Exit To 

Assemble I Phases 



) 



$RPKB - Error Message List 



3> 

* 



Prints error messages. 

Calls appropriate Phase |$RPKC-$ftPKV| to gel 

error message {see note 21, 

Error table. 

Error messages. 

If warning error j only | ^|^| 



SR - 5, 6 



I 



Ke) 



^— -*| 



SRPJY - Check Extension and Line Counter 

• Checks extension specifications for errors in From 
and To Filename, number of entries, table length, and 
file type. 

• Checks line counter specifications for invalid type and 
undefined or missing filename. 

Zi> Line counter, and extension compressions. 
<jf Any errors are indicated on error file. 



SR-6, 9, 10, 11 



I 



C Exit To SSSPEJ - "\ 
\^ End of Job Transient J 



Note 1: Interphase Control routines that can be used during the 
Assign and Diagnostic Phases are: 

SR5 - DRGCZP - Printer Control 

SR6 - 0RGCZZ - Call Next Compiler Phase 

SR7 - PIOCS - Disk Control 

SR8 - DRGCFI - Find Item in Compression 

SR9 - DRGCZG - Open a Compression Block 
SR10 - ORGCZH -Get Next Compression 
SR11 - DRGCZK - Close a Compression Block 
SRI 2 - DRGCZM - Write an Object Code Block 

See Figure 2-9 for a description of the Interphase Control routines. 

Note 2: Phases $RPKC-$RPKV contain the error messages used 
by phase $RPK6. These phases are optional. The phases 
and message numbers of the messages each phase contains 



Phase 


Entry Point 


Message Numbers 


RPKC 


DRGKCI 


32-63 


RPKD 


DRGKDI 


64-90 


RPKE 


DRGKEI 


91-116 


RPKF 


DflGKFI 


117-142 


RPKG 


DRGKGI 


143-169 


RPKH 


DRGKHI 


170-195 


RPKI 


DRGKII 


196-228 


RPKJ 


DRGKJI 


229-250 


RPKK 


DRGKKI 


251-276 


RPKL 


DRGKLI 


277-310 


RPKM 


DRGKMI 


311-340 


RPKN 


DRGKNI 


341-360 


RPKO 


DRGKOI 


361-379 


RPKP 


DRGKPI 


380-453 


RPKQ 


DRGKQI 


454-541 


RPKR 


DRGKRI 


542-574 


RPKS 


DRGKSI 


575-597 


RPKT 


DRGKTI 


598-630 


RPKU 


DRGKUI 


631400 
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Enter From Assign and Diagnostic Phases 






) 



SRPPA - Generate IPCR 



J> 



<S 



Generates object code for the Input Processing control 

routine (IPCR). 

Generates a flag byte indicating the segments of 

object code to be generated for the Output Processing 

Control routine (OPCR). 

Fife Description compressions, and data management 

entry points and module name compressions. 

Object code block far IPCR and the flag byte. 



SR-6, 8,9. 10, 11, 12 






SRPPE - Build input Record Recognition 1 Code 

■ Generates object code to: 

1 . Check for first blank trailer on each spread 
record. 

2. Move the parameter list creaied in SRPPF to 
identify input records. 

■ Inserts main record recognition entry point addreues 
for the record type into all record type input 
compressions, 

^C> Input compressions. 

<£ Updated input compressions, object code blocks, 

and address of return points to object code 

generated in this phase. 



SR -6,8,9,10, 11,12 



$RPPB - Generate OPCR 



=o 



OE 



Generates object code for OPCR, 

Generates the linkage to IPCR and OPCR, A link is 

generated for each file, one for input and one for 

output. The IPCR linkage loads the data management 

module name in XR1. The OPCR linkage loads the 

fOCB address in XR1 and the data management 

module name in XR2. The address of each linkage is 

placed in the file description compression. 

Flag byte from SRPPA, file description compression, 

and data management entry points and module 

name compressions. 

Generated object code for OPCR and IPCR and 

OPCR linkages, and updated file description 

compressions. 



SR -6,8,9, 10, II, 12 






SRPPF - Build Input Record Recognition 2 Code 

• Ge nerates object code to : 

1 . Recognize input records and check numeric 
sequence of records, 

2. Control reading of headar/trailer records. 

• Initializes a parameter list to recognize input 
records. 

• Stores address of parameter I ist in input compressions, 

• Initializes bytes 19-28 of IOCS. 

D> Input compressions and addresses passed from SRPPE. 
<£ I0CB, Updated compressions, object code block, end 
parameter list. 



SR -6,8.9.10,11. 12 






SRPPC - Input Mainline Code 

■ Generates object code to: 

1 . Set off specif led overflow indicators and 
record resulting indicators. 

2. Check specified halt indicators | H1-H9) 
and produce halt commands, 

3. Setoff 1P, LI- L9 and set on L0. 

4. Determine if LR indicator is on. 

5. Bypass total time first cycle when keyboard is 
primary file. 

6. Produce Input and Program Close Mainlines. 

7. Produce branches for Record ID, Control 
Fields Logic and Move, and Multifile and 
Matching Records Logic routines. 

♦ If keyboard primary file (Model 6) 
j> Input compressions. 
<X Object code blocks, 



SR-6,8.9. 10,11 12 



SRPPG - File Selection and Match Field Extraction Code 

• Generates object code to: 

1 . Perform processing of multiple input files. 

2, Move match field records from the input 
buffer to work area. 

• Stores address of Match Field Extraction routine 
into list built by SRPPF. 

l£> Input compressions. 
<£ Object code blocks. 



SR -6,9,10. 11, 12 



Figure 2-4. Assemble I Phases (Part 1 of 2) 
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SflPPJ - Control Field Extraction Code 

• Generates object code to: 

1. Bypass total calculations and total output on 
first pass of phase. 

2. Move and compare control fields and sat on 
control level indicators, 

3. Branch from Input Mainline to coda generated 
by this phase. 

■ Siores address of control fields Logic and Move routine 
in parameter list built by $RPPF. 

• Picks up address of IPCR and OPCR linkages from 
file description compressions and inserts them in 
other compressions. 
If no input fields ■ ^^H^^H 



• 



File description, input, calculation, and output-format 
compressions. 

Object code block, updated calculation, and output- 
format compressions. 



SR -6,8.9,10, 11. 12 






Note: Interphase Control routines that can be used during 
the Assemble I Phases are: 

SR5 - DRGCZP - Printer Control 

SR6 - DRGCZZ - Call Next Compiler Phase 

SR7 - PIOCS - Disk Control 

SR8 -• DRGCFI - Find Item in Compression 

SR9 - DRGCZG - Open a Compression Block 
SR 10 - ORGCZH - Get Next Compression 
SR1 1 - ORGCZK - Close a Compression Block 
SRI 2 - ORGCZM - Write an Object Code Block 

See Figure 2-9 for a description of the Interphase Control routines. 

Note: Since fields in COMMON are input and/or output for all 
phases, COMMON is not listed as input or output. 



< 



Exit To SRPLS I 
Pre-Assemble Phases 



D 



SRPPL - Look-Ahead Field Extraction Code 

• Generates object code for look -ahead f ietd moves 
from the buffer to the data field. 

• Generates object code to branch from Input Mainline 
to code generated by this phase. 

• Stores address of Move Input Fields Mainline in 
parameter list built by SRPPF. 

X> Input compressions. 
Of Object code block. 



SR-6, 8.9. 10, 11, 12 






SRPPM - Input Fieid Extraction Code 

• Generates object code; 

1 . For input field mows from buffer to data 
field. 

2. Branch from Input Mainline to code generated 
by this phase. 

3. For trailer field moves from buffer to data 
field. 

4. to check for blank trailer or end of record to 
determine if a read is required. 

^X> Input compressions. 
<£ Object code block. 



SR- 6, 8,9, 10. 11 






(Exit To SRPLB in **\ 
Pre-Assemble Phases^/ 



Figure 2-4. Assemble I Phases (Part 2 of 2) 
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Enter From Assemble I Phases 






) 



$RPLB - Output Indicator Optimization 

• Determines output time and output line information 
useful for execution of later phases and passes 
information in bit settings within the output- for mat 
compressions. 

• Optimizes output indicators with the same displacements 
by combining masks and eliminates tests for overflow, 
IP, and LR output records. 

• Resets fetch switch in compressions if overflow is 
given on file description specifications but not on 
output-format specifications, 

j£> Output-format compressions. 

<£' Updated output-format compressions. 



SR-9, 10 






1 



JRPLR - Constant. Literal, Edit Word. DTF Parameter 
Assign II 

■ Generates object code for constants, adit word 
patterns, literals, and output DTF parameters. 

• Optimizes usage of DTF parameters. 

• Generates segment list entries for the object code 
blocks created. 

• Places address of literal in calculation compression. 

• Places address of DTF parameter in output-format 
compression. 

• Places address of constant or edit word in output-format 
compression, 

3> Calculation and output-format compressions, and 

general storage table. 
<£ Updated calculation and output-format compressions. 

and object code block. 



SR-6,9, 10, 11 



$RPLG - DTF Parameter Assign I 

• Places calculation and output DTF parameters in 
general storage table. 

• Places length less one of DTF parameter in 
compressions. 

X> Calculation and output-format compressions. 

Oc Updated calculations and output-format compressions. 

and general storage table. Any overflow from general 

storage table is placed on scratch file. 



SR -6.8,9, 10. 11. 12 






T 



SRPLV - Output Fields Move Optimization 

• Sets bit on in output-format compression when 

an output field move can be combined with succeeding 
field move. 

• Updates constant address and length for output field 
move. 

Zf> COMMON and output-format compressions. 
<3>_ Updated output-format compressions. 



SR-6,8, 9, 10. 11 



$RPLN - Constant. Literal. Edit Word Assign I 

• Add* constants, edit words, and literals used by the 
program to the general storage table. 

• Replaces literal entries with length and description 
byte in calculation compression. 

• Places length minus one of object code in constant or 
edit word entry in output-format compression. 

• If no literals, constants, edit words, or output DTF 
parameters ■^^■H^HH^H^H^^^^^^^H 



it? Calculation and output-format compressions. 
<£ Updated calculation and output-format compressions, 
and general storage table. 



SR-6,8, 9, 10, 11 



So 



I 



SRPMB - Pre-Assemble Calculations 1 

• Initializes a length byte In the calculation compression 
of the length of object code required for ADD, 
Z-ADD, SUB. Z-SUB, EXSR. BEGSR, ENDSR. GOTO, 
EXIT. EXCPT, RLABL, COMP. TESTZ, REAO, 
CHAIN, LOKUP, FORCE, SETON, SETOF, BITON. 
TESTB,andSETLL. 

• Places a mask in the calculation compression to 
determine whet object code block to generate for 
ADD, Z-ADD. SUB, Z-SUB, COMP, TESTZ, 
SETON, SETO F, BITON, BITOF, and TESTS. 
If Model 6anryH^H^||^||^||^||^|M|^^H 






Calculation compressions. 
Updated calculation compressions. 



SR-6,8, 9, 10, 11, 12 



KD 



SRPU - Pre-Assemble Calculations 3 {Model 6 only] 

■ Initializes a length byte in calculation compression 
to length of object code required for SET and KEY. 

■ Places a mask in calculation compressions to 
determine what object code to generete for SET 
and KEY. 

~X>\ Calculation compressions. 

<X| Updated calculation compressions. 



SR -6. B.9. 10, 11 



©~ 



$RPMG - Pre-Assemble Calculations 2 

■ Updates a length byte in calculation compression to 
contain the length of object code required for each 
TIME and DSPLY operation. 

j[> Calculation compressions. 

<X Updated calculation compressions. 



SR-6,8. 9. 10, 11 



^ 



Figure 2-5 (Part 1 of 2). Pre-Assemble Phases 
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SRPMH - Pre- Assemble Calculations 4 

• Updates a length byte in the calculation compression 
of the length of object code required for MULT, 
DIV, SQRT, MVR, XFOOT, MOVE, MOVEA. 
MOVEL. MHLZO, MLHZO. MLLZO, end DEBUG. 

• Updates a length byte In the calculation compression 
of the length of object code required for the array 
control for ADO, SUB, Z-ADO. Z-SUB, COMP, 
TESTZ, MULT, SQRT, DIV, MVR, XFOOT, TESTB, 
KEY. BITON, and BITOF. 

■ Pisces a mask in the calculation compressions to 
determine what object code to generate for MULT, 
DIV, SQRT, MVR, XFOOT, MOVE, MOVEL, 
MHHZO> MHLZO, MLLZO. 

"%> Calculation compressions. 

<E Updated calculation compressions. 



SR-9, 10 






1 



$RPLZ - Output Indicator Testing 

• Determines, when jumps ere generated i 
indicator testing on output records. 
A> Output-format compressions. 
<X Updated output-format compressions. 



SR - 6, 8, 9. 10, 1 1 



$RPMI - Pre-Assemble Indicator Optimization 

• Determines and optimizes length required to test 
for conditioning indicators on calculations. 

• Establishes the total length of detail calculations, 
L0-L9 calculations, and LR calculations specified on 
source and places the length in COMMON. 

3> Calculation compressions. 

<Jt Updated calculation compressions. 



SR-6,8.9, 10, 11 









$RPMK - Build Segment List 



=0 



Builds start address in COMMON for Open Mainline, 
Program Close Mainline, detail and total calculations, 
IP output, LR calculations, and controlled cancel, 
Initializes segment list identification counter. 
Generates segment list entries, 
Extension end input compressions. 
Image of segment list on scratch file. 



SR-6,8,9, 10, 11 



SRPMA - Output Object Code Block Length 

• Accumulates total length of each output object 
code block for SRPMM. 

• Determines length of each output-format 
compression block. 

lt> Control statement compressed in COMMON and 

output-format compressions. 
<£ Updated output-format compressions end lengths 

of object code blocks to be generated. 



SR - 6, B. 9. 10, 1 1 



I 



J 



SRPMM - Output Segment List Entries Build 

• Determines addresses of exception output, total 
output, detail output, LR output, fetch overflow, 
and LR and Overflow Control Mainline object code 
In COMMON. 

* Places object code addresses in output-format 
compressions for phases $RPPS, $RPPU, $RPPV, 
andSRPPW. 

rj> Fetch overflow code usage indicators, detail overflow 
output lengths, total overflow output lengths, printer 
overflow indicators, and output-format compression*. 

Oil Updated output-format compressions, device types 
for fetch code, DTF addresses for fetch code and 
automatic skip code, IOCB addresses for automatic 
skip code, overflow output addresses, and Image of 
segment list on scratch file. 



SR-6,B,9, 10, 11 



( 






Exit To Assemble II Phases 



) 



Note: Interphase Control routines that can be used during 
Pre-Assemble Phases are: 



SR5 - ORGCZP - Printer Control 

SR6 - DRGCZZ - Calf Next Compiler Phase 

SR7 - PIOCS - Disk Control 

SR8 - DRGCFI - Find Item in Compression 

SR9 - DRGCZG - Open a Compression Block 
SR10 - DRGCZH - Get Next Compression 
SR1 1 - DRGCZK - dose a Compression Block 
SRI 2 - DRGCZM - Write an Object Code Block 

Note: Since fields in COMMON are input and/or output for all 
phases, COMMON is not listed as input or output. 



Figure 2-5. Pre-Assemble Phases (Part 2 of 2) 
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$RPPO - LR and Overflow Control Mainline Coda 

• Generates object cods for LR and overflow processing. 
■ Generates object code to test and set the matching 

record [MR J Indicator. 

• Generates object code to branch from one mainline to 
the next mainline. 

• Modifies addresses of object code blocks to be generated 
so punching is performed first at execution time If 
print fields are specified before punch fields in the 
output-format compressions. 
If no chain or demand files ^| 






If no calculation specifications.^} 

Output-format Compressions. 

Updated output-format compressions and object code 

block. 



SR - 6, 9, 10, 1 1 





1 




$RPPN - 


Chain and Read Files Code 




• 


Generates object code to identify records for chafn and 
demand files. 




• 


Builds the chain table. 




• 


Generates object code to initialize the chain and read 
input portion of the IOCB for CHAIN and DEMAND 
files. 




• 


Generates control code to identify and move fields for 
each cham file. 




3> 


Input compressions. 




<£ 


Chain table and object code block. 




SR 


-6,9, 10, 11. 12 

1 


SRPRW- 


1 

Chain and Read Files Move Field Code 




• 


Generates object code to move fields for chain or 
demand files. 




• 


Defines, in each entry in the chain table, the subroutines 
needed to process the chain or demand files. 




• 


Puts the entry point of each CHAIN or READ subseg- 
ment into the appropriate calculation compression. 




• 


Initializes IOCB of output chain file for the initial read 




♦ 


operation. 




If nnt at iho mH nl the Mmaresiinn ^^^f^^^^^M 




Input compreision and chain table. 




<* 


Updated chain table and object code block. 




SR 


-6,8,9, 10, 11,12 





I 



1 



SRPMP - Build Calculation Segment List 

Builds the segment list for calculation operations. 

Places address of calculation object code jn thB calcula- 
tion compressions. 

Generates segment list entries for chain and read code 

blocks from the chain/read table. 

Passes calculation segment list entries to $RPMQ on 

the work file. 

Replaces user-coded subroutine calculation names with 

subroutine addresses, lengths, and identifiers. 
3> Calculation compressions and chain table. 
<£ Updated calculation compressions and segment list 

entries on scratch fife. 



SR-6, 8, 9, 10, 11 



I 



$RPMQ - Completes Calculation Segment List 

• Builds segment list entries for RPG II subroutines. 

• Passes calculation segment list entries to overlay 
phases on the scratch file. 

A> Calculation compressions. 

<£ Segment list entries on the scratch file. 



SR-6. B, 9, 10, 11 






$RPPS - Output Record Code 



3> 



Generates object code to move IOCS parameters to the 
DTF. 

Generates object code to test record typa output indi- 
cator addressn and branch to output field subsegmerrts. 
Generates object code to branch to Fetch routine. 
Generates object code to point XR2 to the ouput 
buffer. 

Generates object code to clear the work area if the work 
area is to be used as the COMMON output buffer. 
Generates object code to point XR2 to the IOCB and to 
branch to the Output Processing Control routine. 
Generates object code for IP forms alignment. 
Output- format compressions. 
Object code block. 



SR-6.B. 9. 10.11,12 




Figure 2-6. Assemble II Phases (Part 1 of 4) 
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SRPPU - Output Fields 1 Code 

■ Generates object coda to move output fields to output 
work area. 
= C> Output-format compressions, 
<5 Object code block. 

SH - 5, 6. 8, 9, 10, 11. 12 



I 



SRPPV - Output Fields 2 Cod? 

* Generates object code to move output fields associated 
with edit patterns to ouiput work area. 
"C* Output-format compressions. 
<X Object code block. 



SR-5. 6. 8, 9, 10, 11,12 



I 



JRPPW - Output Fields 3 Coda 

■ Generates object code to move input buffer to output 
buffer when record length it greater than 256 bytes. 
^> Output- format compressions. 
<£ Object code block. 



SR-5,6,8,9, 10,11, 12 




$RPQA - Calculations 1 Code 






Generates object code for the test and branch or jump 

instructions for calculation conditioning indicators. 

Generates object code for the linkage to reset resulting 

indicators. 

Updates object code address and length in calculation 

compressions with length of object code generated. 

Changes compare instructions in linkage from low to 

high or from high to low when decimal positions in 

Factor 1 are greater than Factor 2 for numeric compares 

and the length of Factor 1 is less than Factor 2 for 

alphameric compares. 

Increments object code address by length of object 

code for conditioning indicators in calculation compres* 

sion. 

Subtracts the length of conditioning indicators and 

resulting indicators from the length byte in calculation 

compression. 

Calculation compression*. 

Updates calculation compressions and object code block. 



SR-6,B,9,10, 11,12 



I 



To Branch Table 



© 



$RPQH - Calculation Code 1.S (Model 6 only) 

a Generates object code for SET and KEY operation 
codes. 

• Places length of object code in ca Iculation compressions. 
Zi> Calculation compressions. 
<jl Updated calculation compressions and object code block. 



SR - 6\ 8. 9, 10. II. 12 



To Branch Table 




$RPQB - Calculation 2 Code 



3> 



Generates object code for EXSR, BEGSR, ENDSR. 
EXIT, RLABL, EXCPT, GOTO, and TAG. 
Calculation compressions. 
Object code blocks. 



SH-6, 8. 9, 10, 11 



To Branch Table 



1 



SRPQD - Calculation 3 Code 






Generates the object code for ADD, Z-ADD, SUB, and 

Z-SUB. 

Places length of object code in calculation compression. 

Places the address of any reference to Factor 1, Factor 

2, and the Result Field within the code generated by this 

phase if the field is a table, array, or indexed array. 

Calculation compressions. 

Updated calculation compressions and object code 

blocks. 



SR- 6, 8, 9, 10, 11, 12 



To Branch Table 



Cj) 



SRPQE - Calculation 4 Code 






Generates the object code for COMP and TESTZ. 
Places length of objact code in calculation compression. 
Places the address of any reference to Factor 1, Factor 
2, and the Result Field within the code generated by 
this phase if the field is a table, array, or indexed array. 
Calculation compressions. 
Updated calculation compressions and objact code 
block. 



SR-6,8, 9, 10, 11, 12 



I 



To Branch Table 



Figure 2-6. Assemble H Phases (Part 2 of 4) 
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$RPQF - Calculations 5 Coda 






Generates the object code for MULT, SORT, MVR, and 

XFOOT. 

Places length of object code in calculation compression. 

Places the address of any reference to Factor 1. Factor 

2, and the Result Field within the code generated by 

this phase if the field is a table, array, or Indexed array. 

Calculation compressions. 

Updated calculation compressions and object code 

block. 



SR-6,8,9, 10.11,12 



f 



To Branch Table 



CjJ 



SRPQG - Calculations 6 Code 



3> 



Generates the object code for SETON, SETQF, 

BITON, SITOF. and TESTB. 

Places length of object code In calculation compression. 

Replaces the address of Factor 2 and/or the Result 

Field (if the field is a table, array, or variable indexed 

array) with the object-time address of the object code 

that references Factor 2 or the Result Field. 

Calculation compressions. 

Updated calculation compressions and object code 

block. 



SR-8.8,9, 10, 11, 12 



J 



To Branch Table 



T 



$RPQK - Calculations 7 Code 






Generates object code for array control of all calcula- 
tion operation except LOKUP, CHAIN, and DEBUG. 
Places address of object code generated for resulting 
indicators In calculation compressions. 
Calculation compressions. 

Updated calculation compressions and object coda 
block. 



SR-6,8, 9,10, 11, 12 



f 



To Branch Table 



Figure 2-6. Assemble II Phases (Part 3 of 4) 



Cjp 



SRPQL - Calculations 8 Code 






Generates object code for: MOVE, MOVEA, MOVEL, 

MHHZO, MLLZO, MLHZO, and MHLZO. 

Updates object code address in calculation compressions 

by adding length of object code to address. 

Calculation compressions. 

Updated calculation compressions and object coda 

block. 



SR-6,8,9, 10, 11, 12 



? 



To Branch Table 



I 



$RPQT - Calculations 9 Code 

• Generates object code for: CHAIN, FORCE, READ, 
LOKUP, and SETLL. 
3> Calculation compressions. 
<£ Updated calculation compressions and object code 
block. 



SR-6,8,9, 10,11,12 



T 



To Branch Table 



^ 



SRPQU - Calculation* 10 Code 

• Calculates length and type of object code needed for 
TIME and DSPLY operation codes. 

• Generates object code for DSPLY and TIM E operations. 
3> Calculation compressions. 

<£ Updated calculation compressions and object code 
block. 



SR-6,8,9,10. 11. 12 



I 



To Branch Table 



? 



SRPQV - Calculations 11 Code 

• Generates object code to move parameters to DTF. 

• Generates object code for DEBUG. 

X> Calculation compressions. 

■Of Updated calculation compressions and object code 
block. 



SR-6,8,9, 10. 11,12 



ijj 
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Branch Table: Enter at the name of the phase that sent you to the 
branch table. If the decision answer on the line entered is no, proceed 
downward until a decision is answered yes. Then proceed to the indi- 
cated phase. 



SRPRA- 


- Initialization and Close Cods 




• 
1. 


Generates object code to: 

Move external indicator twitches from the program level 
communications area to the Indicator area in ROCA. 
(See Data Areas In Section 4.) 




2. 


Move special word UDATE to the constant area )n main 
storage. 




3. 


Halt If an inquiry program is specified and the inquiry 
bit is not on in the supervisor communication area. 




4. 


Set all indicators off except 1 P and L0. 




5. 


Allocate and open files. 




6, 


Call for a halt if at least one input file is not opened. 




7. 


Initialize all numeric fields end tables, alpha fields, 
and tables, and the COMMON output buffer. 




B. 


Initialize Program Close Mainline by setting on LR 
indicator for a controlled cancel. 




9. 


Call special I/O routines with an operation code of 
X' 10' for close. 




10. 


Branch to LR calculations and/or output for controlled 

cancel. 




11. 


Close all files and call the job terminator. 




12. 


Call the Table Dump subsegment. 






If no pre-execution time tables/arrays and no Ubfe 




Object code block. 




SR 


-6,12 

1 


SRPRC- 


1 

Table Load/Table Dump Code 




• 


Generates parameter list and object coda to branch to 
Load Object Tables subroutine. 




• 


Generates parameter list and object code to branch to 
Dump Object Tables subroutine. 




• 


Generates object code to branch to Program Close 
Mainline. 




3> 


Extension compressions. 




<E 


Object code block:. 




SR 


-6.8,9, 10, 11, 12 















To Overlay Phese SRPRX 
(Figure 2-7, Part 1 of 3, if 
Model 6, 10, or 12; Figure 
2-7, Part 3 of 3, if Model 15) 



Figyre 2-6. Assemble II Phases (Part 4 of 4) 



From 
Phase: 


Decision 


Go To 

Phase: 


ID 


SRPQA 


* If using Model 6 


$RPQH 


2C 


SRPQH 


♦ If EXSR. BEGSR, ENDSR, EXIT, 
R LABL, EXCPT, GOTO, or TAG opera- 
Hon code 


SRPQB 


2D 


SRPQB 


♦ If ADD, Z-ADD, SUB. Z-SUB operation 
code 


SRPQD 


2E 


$RPQD 


♦ If COMP or TESTZ operation code 


SRPQE 


2F 


SRPQE 


♦ If MULT, SORT, MVR. or XFOOT 
operation code 


SRPQF 


3A 


SRPQF 


♦ If SETON. SETOF, BITON, BITOF, or 
TESTS operation code 


SRPQG 


3B 


5RPQG 


♦ If LOKUP, CHAIN, or DEBUG opera- 
tion code 


SRPOK 


3C 


SRPOK 


♦ lfMOVE,MOVEA,MOVEL,MHHZO, 
MLLZO. MLHZO, or MHLZO operation 
code. 


SRPQL 


3D 


SRPQL 


♦ If CHAIN, FORCE, READ, LOKUP, 
or SETLL operation code 


SRPOT 


3E 


SRPOT 


♦ If DSPLY operation coda 


4RPQU 


3F 


SRPQU 


♦ If DEBUG operation code 


SRPQV 


3G 



Note: Interphase Control routines that can be used during Assemble 
1 1 phases are: 

SR5. DRGCZP - Printer Control 

SR6. DRGCZZ - Call Next Compiler Phase 

SR7. PI OCS - Disk Control 

SR8. DRGCFI - Find Item in Compression 

SR9. DRGCZG - Open a Compression Block 

SR10. DRGCZH - Get Next Compression 

SR11. DRGCZK- Close a Compression Block 

SRI?. DRGCZM - Write an Object Code Block 

See Figure 2-9 for a description of the Interphase Control routines. 



Note: Since fields in COMMON are input and/or output for ail 
phases, COMMON is not listed as input or output. 



2-18 



licensed Material-Property of IBM 



c 



Enter from Assemble II Phases for 
Model 6, 10, or 12 



} 



I 



Note: Enter on Part 3 of this Figure 
if Model 15. 



$RPRX - Initialize Segment List 



<0c 



Initializes COMMON entries for Overlay phases. 
Expands segment elements to 16-bytes. 
Replaces I/O subroutine condensed names in the 
segment list with an internal subroutine name. 
Replaces internal data management module names 
with external names from compression file. 
Sorts Root Segment and Mainlines. 
File description specifications, segment list, and 
compression table of internal and external data 
management module names. 
Updates segment list, object code block, and data 
management entry points and module name 
compression. 



SR- 6,8,9, 10, 11,12 



I 



I 



$RPSP - Eliminate Duplicate Segment List Entries 



3> 



Eliminates all duplicate elements within the 

substructure lists and set up equal element 

pointers. 

Rebuilt segment list. 

Updated segment list. 



SR - 6, 7 



1 



SRPSB - Overlay Editor 1 

• Determines which segments and subroutines are to 
be overlays and flags them hi the segment list, 
=0 Segment list. 
<E Updated segment list. 



SR - 6, 7 



JRPRY - Library of Subroutines Code 

• Generates EXTRN entry and new subroutine 
segment elements and passes subroutine text as 
object code. 

.£> Rebuilt segment list. 

<£ Updated segment list, object code blocks, and 
object code delimiter 



SR-6,7, 12 



I 



I 



$RPSF - Overlay Editor 2 

* Organizes Overlays to make the most efficient use of the 
overlay area. 
3> Segment list. 
Ot Updated segment list. 



SR - 6. 7 



SRPSA - Resolve EXTRN 

• Passes object code and resolves all EXTRN in 
object code per entries in segment list 
3> Rebuilt segment list, and object code file, 
<£ Updated segment list and object code blocks. 



SR - 6, 7 



I 



I 



SRPSC - Calculate Start Address 

• Calculates start address for each segment and overlay. 
l£> Updated segment I ist fro m SR PS8 . 
<£ Final segment list. 

SR - 6, 7 



SRPSN - Sort Segment List 



3> 



Sorts segment list into an overlay structure Hst. 

Note: Before this time, pointers tied segment list 

together; now the position of the element in the 

segment list is important. 

Rebuilt segment list. 

Updated and sorted segment list. 



SR - 8, 7 



I 



SRPSD - Print Segment List 

• Prints the segment list. 
j> Final segment list 
<E Source listing of segment list. 

SR - 5, 6, 7 



I 



I 



$RPSE - Sort Object Code 






Sorts object code blocks generated by Assign and 
Assemble phases according to assembled addresses. 
Generates an internal object code table. 
Segment list, and object code blocks. 
Internal object code table. 
Sorted object code blocks, 
no overlays ^^^^^^^^H^^H 



SR - 6, 7 



$ 



*Qjp 



Figure 2-7 (Part 1 of 3). Overlay Phases 
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m 



$RPSG - Overlay Fetch and Transfer Vector Code 

• Generates object code for: 

1 . Overlay Fetch routine 

2. Overlay fetch table 

3. Transfer vectors 

:£> Segment list, sortsd object code blocks, and 

internal object code table, 
<£ Sorted object code blocks for overlay fetch table 

and Overlay Fetch routine. 

Updated internal object code table. 



SR - 6, 7 




SRPSf - Final Output Generation 1 

• 8uilds the following for the linkage editor : 

1 . PHASE control statement 

2. ENTRY control statement 

3. External symbol lift 

X> Sorted object code, and Internal object code table 
<3s PHASE control statement 

ENTRY control statement 

External symbol list 



SR - 6, 7 



I 



SRPSK - Final Output Generation 2 

• Generates final output of object code required by 

the linkage editor, including skip records and text-RLD 

records. 
:^> Segment list, sorted object code, and internal 

abjact code table. 
<E Skip records or blank statements used to fill sectors 

for the linkage editor, text-RLD records, and END 

control statements. 

♦ overlays generated ^■L^L^BL^^L^HLV 



SR - 6, 7 



•i 



I 



Nota: Interphase Control routines that can be used by the 
Overlay phases are: 

SR5 - DRGCZP - Printer control 

SR6 - ORGCZZ - Call next compiler phase 

SR7 - P10CS - Disk Control 

SR8 - ORGCFI - Find Item in Compression 

SR9 - ORGCZG - Open a Compression Block 

SR10 - DRGCZH - Get Next Compression 

SRT1 - DRGCZK - Close a Compression Block 

SR12 - DRGCZM - Write an Object Code Block 

See Figure 2-9 for a description of the Interphase Control 
routines. 



Note: Since fields in COMMON are input and/or output for all 
phases, COMMON is not listed as input or output. 



Exit To Linkage Editor (SLINKS) via Supervisor 
For Model 6, 10, or 12 



) 



Figure 2-7 (Part 2 of 3). Overlay Phases 
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(Enttr From Assemble II Phwes ] 
ForModeMS J 



$RPRX- 

• 
* 


Reformat Segment List 

Adds entries to segment list for DEBUG, user 
subroutine*, end date management. 
Expends segment list from 10 to 16 bytes. 
Segment list 
Segment list on SWORK 


SR 


-6.7.9.10,11 



I 



SRPRY - Sort Object Code 

• Sorts object code into attending strings. 

• Pisces text on $S0URCE followed by segment 
lf«, 

;£> Segment list and object code blocks. 
<£ Final text on SSOURCE followed by segment 
list. 



Sfi-6,7 



I 



SRPRZ - Generate R -Module Output 

• Scans object code and generates entry segment 

list elements. 

Produce* ESL records from the segment list. 

Produces TEXT-RLD records from the object 

code. 

Generates module EXTRNs from Associations 

in the segment list. 

Sets up EXTRNS-TOENTRY points from 

address references in the object code, 

Sets up entry points from EXTRN -TO-ENTRY 

points from other segments. 
ZT> Final text end segment list on SSOURCE. 
<£ R-module output of compiler. 



Sfl-7 






i 



xit To Overlay Linkage Editor 
(SOLYNX) Via Supervisor For 
odel 15 



•> 



Figure 2-7 (Part 3 of 3). Overlay Phases 
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INTERPHASE CONTROL ROUTINES DESCRIPTION 

Figure 2-8 shows the charting techniques used on 
Figure 2-9 to describe the Interphase Control Routines. 

The Interphase Control routines reside in the compiler 
control region defined in phase $RPG and phase SRPIC. 
These routines control all disk input and output. 

During the Input and Compression phases the following 
Interphase Control routines are present: 

Open a Compression Area (DRGCZA) 
Write a Compression (DRGCZC) 
Close a Compression Area (DRGCZE) 
Get Next Source Record (DRGCZN) 
Printer Control (DRGCZP) 
Call Next Compiler Phase (DRGCZZ) 
Disk Control (PIOCS) 

When phase SRPIC overlays the last Input and Compres- 
sion phase, the following Interphase Control routines are 
loaded into the compiler control region, overlaying all 
previous Interphase Control routines except PIOCS and 
DRGCZP: 

Find Item in Compression (DRGCFI) 
Open a Compression Block (DRGCZG) 
Get Next Compression (DRGCZH) 
Close a Compression Block (DRGCZK) 
Write an Object Code Block (DRGCZM) 
Call Next Compiler Phase (DRGCZZ) 

Some Interphase Control routines function in a special way 
if less than the required work area is available for the 
normal Interphase Control routines. 

If only 1 K or less is available for the work area and the 
source input, the following Interphase Control routines 
use other than normal routines. 



If only 5 1 2 or 7 1 8 bytes are available for the work area 
and object code, the following Interphase Control routines 
use other than the normal routines. 

DRGCZG — Basic function is same as normal, but only al- 
lows one compression type in storage at one 
time. Requires 512 bytes of available work 
area. 

DRGCZH - Basic function same as normal, but only allows 
one compression type in core at one time. Re- 
quires two sectors of available work area. 

DRGCZK - Same function as normal, but works with 

special DRGCZH. Always writes the updated 
compressions. 

DRGCZM - Basic function is same as normal, but uses 256- 
by te buffer area in the control region of storage 
instead of normal object code area. 



DRGCZC - Basic function is same as normal, but allows 
only one compression to be built and then 
puts that compression out to disk. Shares the 
5 1 2 bytes of work area with DRGCZN. 

DRGCZE — Same function as normal, but works with 
special DRGCZC. 

DRGCZN — Same function as normal, but source shares 
work area with compressions. One source 
record is retrieved from disk and located in 
main storage as required. 
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Formal name (name found on microfiche) 



( Em,r ) 



Descriptive name 



Phase where this routine can be found 

on microfiche 



DRGCZC - Write a Compression <$RPG) 

• Writes one sector of compressions when a sector in the <£ 
work area is full. 

l£> Error table. <^ 

<X Error messages. <^ 



PIOCS - Disk Control <- 






( " ) 



Functions of this routine 

input to this routine 
Output from this routine 

Interphase Control routines that are 
used by this routine. 



Figuie 2-8. Description of the Format Used in Describing the Interphase Control Routines 



Program Logic 2-23 



licensed Material-Property of IBM 



f Enter SRI J 






DRGC2A - Open a Compression Area ($RPG) 

• Assur«s that three sectors are available in the work area. 

* Opens compression area by building compression block 
table with the following information: 

1. Address where compression can begin fn work 
ares. 

2. Address of first sector available for new 
compression block. 

3. Statement number of first source statement in 
current compression. 

X> One-byte parameter Indicating the type of 
specification for the compression block. 

<£ Address in XR1 of the first byte in work area where a 
compression can be generated and the compression 
block table. 



I 



f Return To Caller ) 
( Enter SR2 j 



I 



DRGCZC 


- Write a Compression ($RPG) 


• 


Increments statement counter. 


• 


Writes out on disk when 256 bytes are full. 


• 


Updates parameters in compression block each time 




ft sector is written. 


X> 


Compression block table. 


<X 


Updated compression block table and Address in 




XR1 of the first byte in work area where a 




compression may be generated. 


PIOCS - 


Disk Control 



1 



( Return To Caller J 



C 



Enter SR3 



I 



) 



DRGCZE - Close a Compression Area ($RPG) 

• Marks end of last compression block with X'F F" 

• Writes final sectors in a compression block. 
X> Compression block table. 

<£ Last sector in current compression block. 



PIOCS - Disk Control 



I 



Return To Caller 



C 



Enter SR4 



I 



DRGCZN - Get Next Source Record (SRPG1 

• Reads RPG 1 1 source records. 
H> RPG II source records in SSOURCE. 
<OC Address In XR2 of the next source record. 

PIOCS - Disk Control 



C 
C 



I 



Return To Caller 



Enter SR5 



) 



I 



DRGCZP - Printer Control ($RPG) 

• Passes parameters to the line printer. 
t> One-byte parameter containing: 

Bit Contents 

I - Wait only 

2 1 = Print followed by space 

Or Printer tine of information in work area. 



$$STOP - Transient Halt/Syslog' 



I 



Return To Caller 



Enter SR6 



J 



DRGCZZ - Call Next Compiler Phase ($RPG1 

• Branches to supervisor to load and transfer control to 
the next compiler phase. 
z£> Four-byte parameter containing the name of the 
phase to be loaded. 



SSSPVR -NLOADR' 



I 



( To Phase Loaded J 



C 



Enter SR7 



I 



") 



PIOCS - Disk Control (SRPG) 

* Moves I/O parameter list to the disk I OB, 

* Updates C/S address in the I/O parameter list for the 
next operation. 

* Branches to I/O Supervisor. 

:£> Address of I OB in XR1 end a two-byta address which 

points to I/O parameter list for the requested operation. 

<& C/S address in the I/O parameter list increased by each 
266 bytes executed. 



DIODSP - Disk IOS* DIODWT - Disk Wait' (Model 6, 10. or 121 
CAM- (Model 151 



C 



I 



Return To Caller 



D 



Figure 2-9 (Part 1 of 2). Interphase Control Routines 
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Enter SR8 






3 



( Enter 5FM0 J 



DRGCGI - Find Item in Compression $RP1CI 

■ Tests format bfts of compression for presence erf 

requested item. 
• Returns displacement o1 requested item in COMMON 
IX'FF' if requested item is not present). 
X> One-byte parameter containing the number of the 
requested item, compression block table, and all 
compressions on $WOR K. 
<£ Displacement of requested item in COMMON. 



C 



I 



I 



DRGCZH - Get Next Compression ($RPIQ. 

» Obtains address of next compression In a compression 
block. 

• Writes the previous sector onto disk. 

• Reads next sector of compressions Into work area if next 
compression is not completely in storage. 

X> Compression block table. 

<5c Address in XR 1 of the next compression (X'F F' if end 
of compression block is reached). 



PiOCS - Disk Control 



Return To Caller 



D 



I 



( Return To Caller J 
f Enter SR11 J 



f Enter SR9 J 



DRGCZG - Open a Compression Block (5RPICI 

■ Reads from disk the first Sector or all sectors 
I depending on the size of the work area) of 
compressions in a requested compression block if 
thet compression block is not in storage. 
^ Compression block table and a two-byte parameter 
containing: 

Byte Bit Contents 

1 Code indicating the compression 
block required: 

X'OO' = File description 
X'02' = Extension 
XW = Line counter 
X'06* = Data management 
X'08' = Input 
X'QA' - Calculations 
X'lO' = Output-format 
X'12' = Telecommunications 
X'14' = Compile-time 
X'16' = Tables 
X'18* = Error 
X'l A' = Scratch 

2 1 = Update of compression 

1 1 = Phase is generating object 

code 
2-7 Not used 
<£ Address in XR1 of the first compression in the 

requested block (X'FF' if the end of compression block 
is reached) and Updated compression block table, 



PIOCS -Disk Control 



C 



I 



I 



DRGCZK - Close a Compression Block ($RPIC) 

• Rewrites current compression block If any 

modifications were performed by the calling phase. 
X> Compression block table. 
<£ Rewritten compression block. 



PIOCS - Disk Control 



I 



Return To Caller 



Enter SRI 2 



I 



DRGC2M -Write an Object Code Block |$RPlC) 

• 'Moves generated object code into an ouput buffer. 

• Writes generated object code onto disk when the buffer 
is full. 

=£> Address in XR 2 of the leftmost byte of object code 

block to be written. 
<£ Object code block in the output buffer. 



PIOCS - Disk Control 



C 



I 



Return To Caller 



) 



Return To Caller 



) 



' See IBM Syswm/3 Disk Systems Data Management and Input/ 
Output Supervisor Logic Manual, SY2 1 -0612. 

' See IBM Systsm/3 Disk Systems System Controi Program 
Logfc Manual, SY21-0502. 



Figure 2-9. Interphase Control Routines (Part 2 of 2) 



Program Logic 2-25 



Licensed Material-Property of IBM 



Section 3. Data Areas 



This section describes the format and contents of the con- 
trol blocks and data areas created by the RPG II Compiler 
and used by more than one phase of the compiler. 



COMPILER CONTROL REGION 

For Models 6 and 10, the compiler control region is a 1.5K 
byte area in main storage following the end of the Super- 
visor. For Model 12, the control region is a 2.0K. byte area 
in main storage at the starting address of the partition in 
which the compiler is loaded. For Model 15, it is a 2.5K 
byte area in main storage at the beginning of the partition 
in which the compiler is loaded. The compiler control 
region contains: 



COMMON 

COMMON is a 128-byte interphase area used to save infor- 
mation used by more than one compiler phase. Each 
phase can access information placed there by preceding 
phases and can transfer information to following phases. 
COMMON is located X'OA* from the end of the Super- 
visor. Figure 3-1 shows the information found in COM- 
MON, where this information is located, and the phases 
where this information is defined and modified. 



1, 



COMMON 



2. Interphase Control routines 

3. Data files, tables, buffers, IOCBs, control routine 
save area 

For a description of the Interphase Control routines, see 
Interphase Control Routines Description in Section 2. 
Program Logic. 
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COMMON 






Hexadecimal 








Name 


Displacement Bytes 


Defined 


Modified 


Explanation 


COMAAC 


00 


$RPG 


$RPGF 
$RPKA 
$RPKE 


Control card specification information: 

Bit 1 = Object program permanently in 

library (C in col 10) 
Bit 1 1 = Object program punched on cards 

(Pin col 10| 
Bit 2 1 = No object program produced (col 11) 
Bit 3 1= No list 

Bit 4 1 = Shared I/O (Models 6, 10, and 1 2 only) 
Bit 5 1 = DEBUG operation (col 15) 
Bit 6-7 00 = Domestic format (col 21) 

01 = United Kingdom format (col 21) 

10 - World Trade date format (I) col 21 

1 1 - World Trade date format (J) col 21 


COMABC 


01 1 


$RPG 


None 


Control statement information; object program 
size (col 12-14) 


COMACC 


02 2 


$RPG 


$RPGH 

$BPGI 

$RPGJ 

$RPGN 

$RPGS 

$RPGR 

$RPGT 

$RPXA 

$RPXB 


Bit 7 1 = Program exceeds 64 K bytes of 
storage or disk overflow error 


COMADC 


03 3 


$RPG 


$RPHC 

$RPJM 


Control statement information: 

Bit 1 = No halt for unprintable characters 

(col 45) 
Bit 1 1 = Program allows inquiry interrupts 

(col 37) 
Bit 2 1 = Inquiry program (col 37) 
Bit 3 1 = Alternate collating sequence (col 26) 
Bit 4 1 = Repeat IP lines (col 41) 
Bit 5 1 = File translation (col 43) 
Bit 6 1 = MFCU or DATA96 zero suppression 

(col 44) 
Bit 7 1 = UDATE field 



Figure 3-1 (Pait 1 of 14). COMMON 
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COMMON 




Name 


Hexadecimal 
Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMAEC 


09 


4-9 


$RPG 


None 


Program identification specified on the control 
statement (col 75-80) 


COMAFC 


OB 


10-11 


$RPG 


$RPIC 
$RPJW 
$RPJZ 
$RPJA 
$RPHS 
$RPJG 


Statement number of the compression in storage 


COMBIC 


10 


12-16 


$RPG 


None 


The compression sequence number 


COMAGC 


oc 


12 


$RPGF 


$RPGU 
$RPGW 
$RPGX 
$RPHA 
$RPHD 
$RPHT 

$RPGU 


Error information for assign and diagnostic phases: 

BitO 1 = Unreferenced Indicator 

Bit 1 1 = Undefined indicator 

Bit 2 1 = Multi-defined field 

Bit 3 1 = Unreferenced field 

Bit 4 1 = Undefined field 

Bit 5 1 = Multi -defined tables/arrays 

Bit 6 1 = Too many tables/arrays 


COMBCC 


OD 


12-13 


$RPPC 


None 


Branch address of the operand portion in Input 
Mainline to detail calculations 


COMAVC 


OF 


14-15 


$RPPC 


$RPPE 


Address of the return point in Input Mainline 


COMAVC 


OF 


14-15 


$RPPE 


None 


Address of the Record ID routine 


COMCKC 


OF 


14-15 


$RPRA 


None 


Address of Load Object Tables subroutine 


COMAWC 


11 


16-17 


$RPPC 


$RPPG 


Branch address of the operand portion in Input 
Mainline to Multifile and Matching Records Logic 
routine 


COMAWC 


11 


16-17 


$RPPG 


None 


Address of Multifile and Matching Records Logic 
routine 


COMFCC 


11 


16-17 


$RPMM 


None 


Binary length of exception output 


COMBJC 


50 


17-80 


$RPG 


$RPEA 

$RPEB 

$RPEC 

$RPEE 

$RPEI 

$RPEK 

$RPEO 


Errors found in the Input and Compression 
phases 


COMAXC 


13 


18-19 


$RPPC 


$RPPJ 


Branch address of the operand portion of the 
branch in Input Mainline to Control Fields Logic 
and Move routine 


COMAXC 


13 


18-19 


$RPPJ 


$RPMK 


Address of Control Fields Logic and Move routine 



Figure 3-1 (Pait 2 of 14). COMMON 
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COMMON 




Name 


Hexadecimal 
Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMFDC 


13 


18-19 


$RPMK 


$RPMM 


Compression sequence number of ISAM file that 
requires record address file processing 


COMDUC 


14 


19-20 


$RPSE 


$RPSG 


Spindle address for file one 


COMEDC 


15 


20-21 


$RPPC 


$RPPE 


Address in Input Mainline to call RPG II Halt 
Processor 


COMAYC 


15 


20-21 


$RPPL 


None 


Address of Input Fields routine 


COMDVC 


16 


21-22 


$RPSE 


$RPSG 


File one disk start address 


COMAUC 


17 


22-23 


$RPPC 


None 


Address of Input Mainline 


COMDWC 


18 


23-24 


$RPSE 


None 


File one disk end address 


COMAZC 


19 


24-25 


$RPPC 


None 


Branch address of the operand portion in Input 
Mainline to LR and Overflow Control Mainline 


COMCDC 


19 


24-25 


$RPGS 


$RPGR 
$RPGT 
$RPXA 
$RPXB 


Address of limits I/O save area 


COMDXC 


1A 


25-26 


$RPSE 


$RPSG 


Address of the next available sector 


COMCEC 


IB 


26-27 


$RPGS 


$RPGT 
$RPXA 


Limits shared I/O DTF address 


COMEOC 


IB 


26-27 


$RPPA 


$RPPB 

$RPPJ 


BSCA IOCB@ transmit with reply 


COMCWC 


IB 


26-27 


$RPMK 


$RPRA 


Address of controlled cancel in Program Close 
Mainline 


COMDYC 


1C 


27-28 


$RPSB 


$RPSF 


Byte 0, Bit 1 - Object program will not fit 
in main storage 


COMBNC 


1C 


28 


$RPJW 


$RPJX 
$RPJZ 


File description information: 
Bit 1 = Ascending sequence 
Bit 1 1 = Descending sequence 
Bit 4 1 = Ascending sequence 
Bit 5 1 = Descending sequence 


COMBAC 


1C 


28 


$RPHQ 


None 


Alternate sequence character to initialize match 
field save areas 
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COMMON 




Hexadecimal 










Name 


Displacement 


Bytes 


Defined 


Modified 


Exptanation 


COMBQC 


1D 


28-29 


$RPHT 


None 


Address of decimal point for edit pattern 1 


COMBOC 


1E 


29-30 


$RPJW 


$RPJX 
$RPJZ 


File and indicator information: 
Byte 0, Bit 1 = Overflow indicator used 
Bit 1 1 = Primary file 
Bit 2 1 = Record address file 
Bit 3 1 = Input files conditioned by 

external indicators 
Bit 4 1 = Input files 
Bit 5 1 = Default second primary 

to secondary 
Bit 6 1 = Non-demand RA 

associated file 
Bit 7 1 = RA associated file 
Byte 1, Bit 1 = External indicator used to con- 
dition opening of a file 


COMDZC 


1E 


29-30 


$RPSG 


None 


Address of overlay fetch table 


COMBRC 


IF 


30-31 


$RPHT 


None 


Address of decimal point for edit pattern 2 


COMGAC 


20 


31-32 


$RPSC 


None 


Length of object program 


COMBSC 


21 


32-33 


$RPHT 


None 


Address of left slash of date edit pattern 


COMGBC 


22 


33-34 


$RPSC 


None 


Length of overlay area 


COMBTC 


23 


34-35 


$RPHS 


None 


The control field type. If the bit is set to 0, the 
control field is alphameric; if the bit is set to 1, 
the field is numeric. 

Byte 0, Bit 7 = L9 
Byte 1,BitO = L8 

Bit 1 =L7 

Bit2-L6 

Bit3-L5 

Bit4=L4 

Bit5=L3 

Bit 6 = L2 

Bit 7 = L1 


COMFBC 


23 


34-35 


$RPMK 


$RPLN 
$RPLR 
$RPMM 
$RPMP 
$RPRX 


The next available segment list number 


COMGCC 


24 


35-36 


$RPSC 


None 


Length of suboverlay area 
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COMMON 




Hexadecimal 












Name 


Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMBUC 


25 


36-37 


$RPHS 


None 


Two bytes indicating the match field type. If the 
bit is set to 0, the match field is alphameric; if the 
bit is set to 1 , the field is numeric. 

Byte 0, Bit 7 = M9 












Byte 1 


,BitO = M8 
Bit 1 = M7 
Bit2 = M6 
Bit3 = M5 
Bit4-M4 
Bit5 = M3 
Bit6 = M2 
Bit7 = M1 


COMCRC 


25 


36-37 


$RPMI 


$RPMK 


Length of detail calculations 


COMCRC 


25 


36-37 


$RPMK 


None 


Address of detail calculations 


COMCDC 


26 


37-38 


$RPSC 


None 


Length of Fetch routine and table 


COMBEC 


26 


38 


$RPJA 


$RPGH 


Field information: 










$RPGI 


Bit 


1 = Halt indicator HI used 










$RPHS 


Bit 1 


1 = Direct file without ADDROUT 










$RPPC 


Bit 2 


1 = Limits file specification 










$RPPJ 


Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


1 = BSCA conversational transmit file 
1 = Alphabetic and numeric fields 
1 = FORCE operation code 
1 = Numeric record ID sequence 
1 = Look ahead field 


COMBWC 


26 


38 


$RPPN 


$RPPM 


Subroutines used by Input Fields: 












BitO 


1 = Unpack subroutine 












Bit 1 


1 = Not used 












Bit 2 


1 = Convert to Decimal routine 












Bit 3 


1 = Array Index subroutine 












Bit 4 


1 = Set Resulting Indicators subroutine 












Bit5 


1 = Not used 












Bit 6 


1 = Chain or demand file in program 












Bit 7 


1 = First time entry switch 


COMBFC 


27 


39 


$RPJX 


$RPGF 


Overflow indicators used: 












BitO 


1 =OV 












Bit 1 


1 = OG 












Bit 2 


1 =OF 












Bit 3 


1=OE 












Bit 4 


1 =OD 












Bit 5 


1 =OC 












Bit6 


1 =OB 


_ 










Bit 7 


1=OA 
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COMMON 




Name 


Hexadecimal 
Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMBFC 


27 


39 


$RPGF 


None 


Halt indicators used: 
BitO 1=H9 
Bit 1 1 = H8 
Bit 2 1 = H7 
Bit 3 1=H6 
Bit 4 1=H5 
Bit 5 1=H4 
Bit 6 1 = H3 
Bit 7 1 = H2 


COMGEC 


28 


39-40 


$RPSC 


None 


Length of available object storage 


COMBHC 


29 


40-41 


SRPGH 


None 


Address of the file I/O table 


COMASC 


2A 


40-42 


$RPHS 


$RPHT 


Bytes 0-1 Address of the high-order byte of 

the first match field save area. 
Byte 2 Length of the save area. 


COMCTC 


29 


40-41 


$RPMI 


$RPMK 


Length of total calculations 


COMCTC 


29 


40-41 


SRPMK 


None 


Address of total calculations 


COMGFC 


2A 


41-42 


$RPSC 


None 


Address of the overlay area 


COMBKC 


2B 


42-43 


$RPGI 


None 


Address of the F ROM file DTF 


COM F AC 


2B 


42-43 


$RPPN 


None 


Address in chain control code where input fields 
return after moving fields 


COMGGC 


2C 


43-44 


$RPSC 


$RPSG 


Address of suboverlay area 


COMATC 


33 


43-51 


$RPPG 


None 


Length of each match field: 
Byte = Length of M1 field 
Byte 1 = Length of M2 field 
Byte 2 = Length of M3 field 
Byte 3 = Length of M4 field 
Byte 4 = Length of M5 field 
Byte 5 = Length of M6 field 
Byte 6 = Length of M7 field 
Byte 7 = Length of M8 field 
Byte 8 = Length of M9 field 


COMBLC 


2D 


44-45 


$RPGI 


None 


Address of the TO file DTF 


COMEUC 


2D 


44-45 


$RPPN 


None 


Statement number for $RPRW to begin processing 


COMGHC 


2E 


45-46 


$RPSB 


None 


Length of Open-Close overlay 
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COMMON 


Name 


Hexadecimal 
Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMBMC 


2F 


46-47 


$RPJX 


$RPGH 
$RPGI 


Byte Not used 

Byte 1 Bit 1 = Card print required 
Bit 1 1 = BSCA output file 
Bit 2 1 = BSCA input file 
Bit 3 1 = BSCA file given 
Bit 4 1 = MFCUl print buffer needed 

(Models 12 and 15) 
Bit 5 1 = MFCU2 print buffer needed 
(Models 12 and 15) 


COMGIC 


30 


47-48 


$RPSB 


$RPSC 


Length of Open-Close suboverlay 


COMCFC 


30 


48 


$RPPL 


None 


Temporary save area for COMBWC 


COMCQC 


31 


48-49 


$RPMM 


None 


Address of first fetch code block 


COMCGC 


32 


49-50 


$RPPL 


None 


Address of return to main code for move fields 


COMGJC 


32 


49-50 


$RPSB 


None 


Address of $WORK 


COMCIC 


33 


50-51 


$RPPO 


None 


Address of last record in LR Output routine 


COMAGC 


36 


52-54 


$RPHS 


$RPHT 


Bytes 0-1 Address of the high-order byte of 

the control field save area. 
Byte I Length of the save area. 


COMEYC 


37 


54-55 


$RPLR 


$RPQU 


Address of DSPLY constant 


COMARC 


3F 


55-63 


$RPHS 


$RPPJ 


Length of each control field: 
Byte = Length of L1 field 
Byte 1 = Length of L2 field 
Byte 2 = Length of L3 field 
Byte 3 = Length of L4 field 
Byte 4 = Length of L5 field 
Byte 5 = Length of L6 field 
Byte 6 = Length of L7 field 
Byte 7 = Length of L8 field 
Byte 8 = Length of L9 field 


COMCMC 


3B 


56-57 


$RPMA 


$RPMK 


Length of 1P Output routine 


COMCMC 


39 


56-57 


$RPMK 


None 


Address of 1P Output routine 


COMBDC 


3B 


58-59 


$RPPL 


None 


Branch address of the operand portion in the 
Move Input Fields to detail calculations 


COMCPC 


3D 


60-61 


$RPMA 


$RPMM 


Length of Exception Output routine 


COMCPC 


3D 


60-61 


$RPMM 


None 


Address of Exception Output routine 
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COMMON 




Hexadecimal 












Name 


Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMGPC 


3E 


61-62 


$RPSA 


$RPRY 


Largest item number in segment list 


COMGPC 


3E 


61-62 


$RPRY 


$RPSA 


Byte 1, 


Bit 1 = Entry point not found in 
segment list 


COMBPC 


3F 


63 


$RPGU 


$RPGW 


Table and array information: 










$RPHA 


BitO 
Bitl 
Bits 2-4 
Bit 5 
Bit 6 

Bit 7 


1 = Symbol table overflowed to disk 

1 = No field names defined 

Not used 

1 = Compile-time tables 

1 = Multi-defined field name heading 
printed. 

1 = Multi-defined table/array name head- 
ing printed 


COMGQC 


40 


63-64 


$RPRY 


$RPSN 


Address of the delimiter in the segment list 


COMAPC 


40 


64 


$RPJX 


$RPMM 


Overflow indicators specified: 












BitO 


1 =OV 












Bit 1 


1 =OG 












Bit 2 


1=OF 












Bit 3 


1=OE 












Bit 4 


1=OD 












Bit 5 


1=OC 












Bit 6 


1=OB 












Bit 7 


1 =OA 


COMAPC 


40 


64 


$RPMM 


None 


Overflow segment needed 


COMAOC 


41 


65 


$RPGU 


$RPGI 


File information: 










$RPPC 


BitO 


1 = ADDROUT file program specified 










$RPMA 


Bit 1 

Bit 2 

Bit 3 
Bit 4 
Bit5 
Bit 6 


1 - CHAIN file program specified 

1 = Dual lOCBs required 

1 = Table Load subroutine at object 

time in program 
1 = Table Dump subroutine required in 

program 

= Single input file 

1 = Multiple input files 

1 = Match fields are ascending 












Bit 7 


1 = Match fields are descending 
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COMMON 



Name 



Hexadecimal 
Displacement Bytes 



Defined Modified Explanation 



COMANC 



43 



COMAMC 



45 



COMCXC 



45 



66-67 $RPGN $RPGU 
$RPGY 
$RPHA 
$RPl_R 
$RPGH 
$RPMK 
$RPGI 
$RPMM 
$RPPO 
$RPGK 
$RPPN 
$RPRW 
$RPGS 
$RPMP 
$RPHQ 
$RPHT 
$RPPA 
$RPPC 
$RPPE 
$RPPF 
$RPPG 
$RPPJ 
$RPPL 
$RPSC 
$RPRZ 
$RPHP 
$RPRY 
$RPJJ 
$RPPM 
$RPGR 
$RPPB 
$RPHU 

68-69 $RPGY $RPGU 
$RPHA 
$RPHD 
$RPGH 
$RPGI 
$RPGK 
$RPGS 
$RPHQ 
$RPHT 
$RPJS 
$RPPA 
$RPGR 
$RPHU 

68*69 $RPMK $RPHA 



Address of next available byte in storage 



Address of end of Root Segment 



Address of normal close entry in Program Close 
Mainline 
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COMMON 




Name 


Hexadecimal 
Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMALC 


47 


70-71 


$RPIC 


$RPQA 
$RPHS 
$RPJA 


Displacement of an item in a compression 


COMAHC 


49 


72-73 


$RPGU 


None 


Address minus one byte of numeric tables 


COMGRC 


4B 


73-74 


$RPSN 


None 


The address of the first root element that is not a 
mainline 


COMAIC 


4B 


74-75 


$RPGU 


$RPHA 


Address minus one byte of the end of numeric tables 
{start address minus one byte of alphabetic tables) 


COMGSC 


4C 


75-76 


$RPSN 


None 


The address of the first mainline element that is not 
in the root element 


COMAJC 


4D 


76-77 


$RPGU 


$RPHA 


Address minus one byte of the end of either alphabetic 
fields and tables or just alphabetic fields {start address 
of numeric fields) 


COMAKC 


4F 


78-79 


$RPHA 


$RPHD 


Address of end of numeric fields 


COMBVC 


51 


80-81 


$RPGU 


None 


Address of beginning of the object program 


COMEEC 


52 


82 


$RPGW 


$RPGN 
$RPGR 


Where compile-time tables/arrays are specified: 
Bit 1 = KEYBORD blind mode only 
Bit 1 Print used on MFCU 
Bit 2 1 = Dual I/O on printer 
Bit 3 1 = Extension specifications 
Bit 4 1 = Output-format specifications 
Bit 5 1 = Calculation specifications 
Bit 6 1 = Input specifications 
Bit 7 1 = BSCA specifications 


COMBGC 


52 


82 


$RPPA 


$RPPG 
$RPPJ 
$RPMK 


RAF and unpack information: 

Bit 1 ■ Unpack subroutine used by Multifile Logic 

Bits 1-2 Keyboard Input/Output Control routine 

hooks required 
Bit 3 1 = Unpack subroutine used by Control Fields 
Bit 4 Reserved 

Bit 5 1 = Pack needed by Random Access File 
Bit 6 1 - Unpack needed by Random Access File 
Bit 7 1 = Get RAF used by Input Mainline 


COMCLC 


53 


82-83 


$RPPO 


None 


Address of total output 


COMCYC 


55 


84-85 


$RPPA 


$RPPB 


Address of Output Processing Control routine 


COMIDC 


55 


85 


$RPEA 


$RPEB 

$RPEC 

$RPEE 

$RPEI 

$RPEK 

$RPEO 


Save area for specification type being processed 
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COMMON 




Hexadecimal 










Name 


Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMCZC 


57 


86-87 


$RPMK 


None 


Address of Open Mainline 


COMBBC 


57 


87 


$RPMM 


None 


Number of SETLL files times 10 


COMCHC 


58 


87-88 


$RPG 


$RPEE 


Address of current compression for Input and 
Compression phases 


COMBYC 


59 


88-89 


$RPGB 


$RPGN 


Common output buffer address 

Byte = High tier used for MFCM1 / Model 15 

Byte 1 = High tier used for MFCM2 f 












COMDAC 


5A 


90 


$RPG 


None 


Address of spindle file one 


COMDBC 


5C 


91-92 


$RPG 


$RPSC 
SRPSK 


Address of beginning of disk file one 


COMDCC 


5E 


93-94 


$RPG 


$RPSG 


Address of end of disk file one 


COMDEC 


5F 


95 


$RPG 


$RPSG 


Address of spindle file two 


COMDFC 


61 


96-97 


$RPG 


$RPSG 


Address of beginning of disk file two 


COMDGC 


63 


98-99 


$RPG 


$RPSG 


Address of end of disk file two 


COMBXC 


65 


100-101 


$RPGN 


None 


Output buffer length 


COMDKC 


64 


100 


$RPRX 


$RPSC 


Number of 256-byte segments in the segment list 


COMDMC 


66 


101-102 


$RPSC 


$RPSG 


Address of beginning of the sort strings of object code 


COMHMC 


67 


102-103 


$RPG 


None 


Time compile started (Model 15 only} 


COM ETC 


67 


102-103 


$RPGH 


$RPGI 


Address of first table load DTP 


COMDNC 


68 


103-104 


$RPRY 


$RPRZ 


Number of 256-byte segments of object text 


COMEFC 


69 


104-105 


$RPEW 


$RPGV 

$RPGK 

$RPGL 

SRPJA 

$RPJK 

$RPJJ 

$RPHS 

$RPHT 

$RPJM 


The number of errors found so far 


COMCNC 


69 


104-105 


$RPPA 


None 


Address of Input Processing Control routine 


COME AC 


6A 


106 


$RPPA 


None 


Length of Input Processing Control routine 


COMDSC 


6A 


105-106 


$RPRY 


$RPRZ 


Address of the work area 
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COMMON 




Hexadecimal 












Name 


Displacement 


Bytes 


Defined 


Modified 


Explanation 


COMEGC 


6C 


108 


SRPFA 


$RPGU 


File information: 












BitO 


1 = File description given 












Bit 1 


1 = Input file 












Bit 2 


1 = Object-time table/array 












Bit 3 


Not used 












Bit 4 


1 = Line counter specification 












Bit 5 


1 = Extension specifications 












Bit 6 


Not used 












Bit 7 


1 =» Compile-time table/array data 


COMENC 


6C 


108 


$RPPA 


$RPMK 


Number of special devices 


COMEHC 


6D 


109 


$RPG 


$RPGN 


Output information: 










SRPPB 


BitO 


1 - Match and/or control field present 










$RPGH 


Bit 1 


1 = Tractor 2 used for carbon (Model 6 










$RPGI 




only) 










$RPHS 


Bit 2 


1 = MR used with ledger card 










$RPJM 


Bit 3 
Bit 4 
Bit 5 

Bit 6 
Bit 7 


1 = DSPLY used with numeric 

1 = Overflow indicator with ledger card 

1 = Matrix printer in field mode (Model 

6 only) 
1 = Numeric printing on keyboard 

(Model 6 or special devices used 

with Model 10 or 12) 
1 = Work area used as output buffer 


COMEIC 


6E 


110 


$RPPE 


$RPJS 


The number of trailer specifications in the program 
release level 


COMCUC 


6F 


110-111 


SRPMI 


$RPMK 


The length of LR Calculations Mainline 


COMCUC 


6F 


110-111 


$RPMK 


None 


Address 


of first byte of LR Calculations Mainline 


COMEPC 


6F 


110-111 


$RPG 


$RPGH 


Release level 


COMEKC 


70 


112 


$RPIC 


$RPGK 


Error and Keyboard information: 










$RPGL 


BitO 


1 = Error file is full 










$RPHS 


Bit 1 


1 = Error caught in Input and Compres- 










$RPJW 




sion phase 










$RPJZ 


Bit 2 


1 = Keyboard primary {Model 6) 










$RPEW 


Bit 3 


Reserved 










SRPHT 


Bit 4 
Bit 5 
Bits 6-7 


1 = Model 6 

I = Header card column 1 1 = P (Partial list) 
01 = Model 12 

10*= Model 15 

I I = External buffers specified 

(Program Number 5704-RG2) 
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COMMON 




Hexadecimal 










Name 


Displacement Bytes 


Defined 


Modified 


Explanation 


COMELC 


71 113 


$RPJE 


None 


Operation code information specified on calculation 










speclfical 


ions: 










BitO 


1 - ADD, SUB, Z-SUB, Z-ADD 










Bit 1 


1 = MULT, DIV, MVR, XFOOT, SORT 










Bit 2 


1 - MOVE, MOVEL, MHLZO, MLHZO, 
MHHZO, MLLZO, MOVEA 










Bit 3 


1 = SETON, SETOF, BITON, BITOF, 
TESTB 










Bit 4 


1 = COMP, TESTZ 










Bit 5 


1 = LOKUP, READ, CHAIN, FORCE, . 

SETLL 










Bit 6 


1 = DEBUG 










Bit 7 


1 - GOTO, TAG, EXIT, EXCPT, BEGSR, 
ENDSR, EXSR,RLABL 


COMEMC 


72 114 


$RPG 


$RPMH 


Operation code information specified on calculation 








$RPJX 


specificat 
BitO 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit6 
Bit 7 


ions: 

1-DSPLYorTIME 
1 = Array control 
1 = SET or KEY (Model 6 only) 
Not used 

1 = CRT in program 
1 - IBM application program 
1 = Halt for warning diagnostics 
1 = IPCR is larger than 256 bytes; 
when this bit is on, COMEAC 
contains number of bytes over 256 


COMEBC 


74 115-116 


$RPPA 


None 


Length of Output Processing Control routine 


COMEVC 


74 115-116 


$RPG 


None 


Gold Key information: 










ByteO 


Not used 










Bytel 


Bit 5 1 = Magnetic Tape 
Bit 6 1 = 5445 Disk 
Bit 7 1=BSCA 


COMEWC 


75 117-118 


$RPG 


None 


Application program ID in binary: 










ByteO 


Not used 










Byte 1 


Bit 1 = R module requested 

(Model 15)* 
Bit 1 1 = D card processed 
Bits 2-7 Not used 


COMEJC 


77 119 


$RPJE 


$RPGH 


File information: 








$RPGI 


BitO 


1 = Exception output 








$RPHT 


Bit 1 

Bit 2 
Bit 3 

Bit 4 
Bit 5 
Bit 6 
Bit 7 


1 = Total output 
1 = Demand files 
1 = EXCPT op code in calculation 

specifications 
1 = Calculation specifications 
1 = Output-format specifications 
1 = Header/trailer in program 
Not used 
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COMMON 


Name 


Hexadecimal 
Displacemenl 


: Bytes 


Defined 


Modified 


Explanation 


COMECC 


79 


120-121 


$RPHA 


None 


Address of linkage to table dump routine 


COMEZC 


79 


120-121 


$RPGK 


$RPPC 


Address of the last IOCB 


COMCAC 


7A 


122 


$RPJU 


None 


Error information: 

Bit 1 = No compile time table data found 

Bit 1 1 = Compile time table data not in 

sequence 
Bit 2 1 = Table/array full 
Bit 3 1 = Table/array too small 
Bit 4 1 = Last entry in table/array blank 
Bits 5-7 Date Bits 


COMCVC 


7A 


122 


$RPMM 


None 


Block of fetch code needed in the program 


COMERC 


7B 


123 


$RPGL 


None 


BSCA file number 


COMEXC 


7D 


124-125 


$RPG 


$RPGX 


Address of first byte of print buffer 


COMDTC 


7F 


126-127 


$RPGX 


$RPGY 
$RPG2 


Address of end of work area 


COMCCC 


7F 


126-127 


$RPGL 


None 


BSCA Record Available indicator 
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Parameters to RPG II Halt Processor 



Control Routine Save Area 



This area in main storage is used to store parameters 
needed for the RPG II Halt Processor and can be found at 
COMMON+X'l 1C\ 



The 26-byte control routine save area, located at 
COMMON + X'15C\ contains addresses and pointers 
vital to the functioning of the compiler. The contents 
of this area are: 



IOB 



Detailed descriptions of the input/output blocks (IOBs) 
for all devices are given in IBM System/ 3 Disk Systems 
Data Management and Input /Output Supervisor Logic 
Manual SY21-0512. 



I/O Parameters 

This 1 8-byte area contains parameters which are moved 
into the disk IOB by Interphase Control routine PIOCS. 
PIOCS moves the parameters when this 1 8-byte area is 
called by one of the other Interphase Control routines for 
disk input or output. The I/O parameters are located at 
COMMON + X'BC. These parameters are: 

Byte Contents 

0-5 Parameters for a read operation 

6-1 1 Parameters for rewriting a modified 

compression 

1 2-1 7 Parameters for writing an object code 

block 



Byte Contents 

0-1 Address of current entry in compression 

block table 

2-3 Address of next sector available for 

compressions 

4-5 Current compression name 

6-7 Address of first byte of current com- 

pression block 

8-9 Address of the work area 

1 0-1 1 Address of the last byte in the work area 

1 2-1 3 End of the current compression block in 

the work area 

1 4-1 9 Three two-byte work areas 

20-21 Pointer to compression in main storage 

22-23 Start address of the output buffer 

24-25 End address plus one of the work area 
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Compression Block Table (CZATAB) 

This 126-byte table, located at COMMON + X*2F6\ con- 
tains control information meaningful to the Interphase 
Control routines. The table contains a 9-byte entry for 
each compression type. Phases requesting a compression 
block pass a flag to the Interphase Control routine indi- 
cating the type of compression. This flag is multiplied by 
4.5 to find the displacement into the table of the entry for 
that compression type. Flags and displacements for the 
different compression types are as follows: 

Flag Displacement Type of compression block 



xw 


XW 


File description specifications 


X'02 1 


XW 


Extension specifications 


XW 


X*12' 


Line counter specifications 


X*06' 


X'lB' 


Data management entry 
points and module names 


XW 


X'24' 


Input specifications 


X'OA' 


X'2D' 


Calculations specifications 


X'OC 


X'36' 


Dump control compressions 


X'10' 


X'48' 


Output-format specifications 


X'12' 


X'51' 


Telecommunications 
specifications 


X'14' 


X'5A' 


Compile time table 
compressions 


X*16' 


X'63* 


Alternate collate and file 
translate compressions 


XU8' 


X6C 


Error file 


X'lA' 


X'75' 


Scratch file 



Each 9-byte entry in the compression block table has the 
following format: 



Byte Contents 

5-6 Storage address of first compression in cur- 

rent compression block. If the address 
points to X'FF', the block has not been 
built. 

7-8 Number of first statement in this com- 

pression block. 



COMPRESSION WORK AREA 

The compression work area is built by the Compiler Initial- 
ization phase ($RPG). This area is normally 1024 bytes 
long, allowing 768 bytes for compressions and 256 bytes 
for output. Some Interphase Control routines are used in 
a special way if less than 1024 bytes of main storage are 
available for the work area. See Interphase Control Rou- 
tines for a description of these routines. 



COMPRESSION FORMATS 

Compressions of source records are of variable length de- 
pending on the specifications. Each logical section of in- 
formation in a compression is assigned an item number so 
that a compiler phase may call the Find Item in Compres- 
sion routine (DRGCFI) to obtain the displacement from 
the beginning of the compression. Bits in the format 
bytes (items 129-131) are set on by the Input and Com- 
pression phases to indicate the presence of items in the 
compression. The compression block table (CZATAB) tells 
the type of the compression and its address. 



Byte Contents 

XW = Opened with update 

X'10 7 = Opened with update (used if only 
512 or 768 bytes are available for 
work area and object code) 
X*20' = Last sector of compressions started 
X'40* = Beginning of this part is not in core 
X*80' = Compression is completely in core 

1-2 Address of first sector of compression on 

disk 

3-4 Number of disk sectors in current compres- 

sion block 



Control Statement Compression 

This compression contains information compressed from 
the control statement specification and is placed in the 
beginning of COMMON. See Figure 3-1 for the contents 
of the compression. 



File Description Compressions 

These compressions contain information compressed from 
each file description specification. The start address of 
the first file description compression is found in bytes 5-6 
of the compression block table. Figure 3-2 shows the com- 
pression format. See the Control Card and File Description 
Specifications sheet for the columns referred to by this 
figure. Phases are listed in order of use by the compiler. 
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Extension Compressions 



Calculation Compressions 



These compressions contain information compressed from 
each extension specification. The start address of the first 
compression is found in bytes 14-15 of the compression 
block table. Figure 3-3 shows the compression fonnat. 
See the Extension and Line Counter Specifications sheet 
for the columns referred to by this figure. Phases are listed 
in order of use by the compiler. 



These compressions contain information compressed from 
each calculation specification. The start address of the first 
compression is in bytes 50-51 of the compression block 
table. Figure 3-6 shows the compression fonnat. See the 
Calculation Specifications sheet for the columns referred 
to by this figure. Phases are listed in order of use by the 
compiler. 



Line Counter Compressions 

These compressions contain information compressed from 
each line counter specification. The address of the first 
compression is found in bytes 23-24 of the compression 
block table. Figure 3-4 shows the compression format. 
See the Extension and Line Counter Specifications sheet 
for the columns referred to by this figure. Phases are listed 
in order of use by the compiler. 



Output-Format Compressions 

These compressions contain information compressed from 
each output-format specification. The start address of the 
first compression is found in bytes 78-79 of the compres- 
sion block table. Figure 3-7 gives the compression format. 
See the Output-Format Specification sheet for the col- 
umns referred to by this format. Phases are listed in the 
order of use by the compiler, 



Input Compressions 

These compressions contain information compressed from 
each input specification. The address of the first com- 
pression is found in bytes 4142 of the compression block 
table. See Figure 3-5 for the compression format and the 
Input Specifications sheet for the columns referred to by 
this figure. Phases are listed in order of use by the com- 
piler. 



Telecommunications Compressions 

These compressions contain information compressed from 
each telecommunication specification. The start address of 
the first compression is found at bytes 86-87 of the com- 
pression block table. Figure 3-8 gives the compression 
format. See the File Description Specification sheet for 
the columns referred to by this format. Phases are listed in 
order of use by the compiler. 



Dump Control Compressions 

See Appendix B. 
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Itam 


Byte 


Defined/ 










Number 


Length 


Modified 


Description 






128 


1 


$RPEA 


Length of compression in binary 






129 


1 


$RPEA 


indicates presence of item in compression 






130 


1 




Item 129 Bit 1 = Item number 132 


Item 130 Bit 1 - Item number 140 










Bit 1 1 = Item number 133 




Bit 1 1 - Item number 141 










Bit 2 1 = Item number 134 




Bit 2 1 = Item number 142 










Bit 3 1 = Item number 135 




Bit 3 1 = Item number 143 










Bit 4 1 = Item number 136 




Bit 4 1 = Item number 144 










Bit 5 1 = Item number 137 




Bit 5 1 = Item number 145 










Bit 6 1 - Item number 138 




Bit 6 1 - Item number 146 










Bit 7 1 = Item number 139 




Bit 7 1 = Item number 147 


131 


1 




Item 131 


Not used 






132 


1 


$RPEA 


BitO 


1 = Invalid compression 


Bit 4 1 


- Input or output table file 








Bit 1 


1 = Invalid filename (col 7-14) and 
compressed as X'C 


Bit5 1 
Bit 6 1 


= BSCA printer type device 
* ASCI I continuation specified 








Bit 2 


1 = Special IOS routine name invalid 
(col 54-59) and not compressed 


Bit 7 


for this file 
- Fixed length records 








Bit 3 


1 = Filename (col 7-14) missing 


1 


= Variable length records 






$RPGV 


Bit 1 


Set to 










$RPJK 


Bit 1 


1 = Debug only output to this file 






133 


1 


$RPEA 


Bits 0-3 


0000 - Blank or invalid file type (col 15) 
1000= Display file 
1001 = Input file 

1010 = Output file 

1011 = Combined file 
11 00 = Update file 
1111 -Invalid 


Bits 4-7 


0000 - Entry not specified (col 16) 

0001 = Primary file 
0010 = Secondary file 

1000 = Chained file 

1001 - Demand file 
1010 = Record address file 
1100 = Table file 

1111 = Invalid file 


134 


1 


$RPEA 


Bits 0-1 
Bits 2-3 


00= Entry not specified {col 181 
01 = Descending sequence 

10 = Ascending sequence 

11 - Invalid sequence 

00= Entry not specif iad (col 17) 
10= End of file 
11=1 nvel id entry 


Bits 4-5 
Bits 6-7 


00 * Entry not specified (col 66) 

01 - Unordered sequence 

10 = Invalid entry (assume A} 

00 = Sequential file processed 

consecutively (coi 28} (blank I 

01 = Random 

10 = Indexed file processed 

sequentially within limits 

11 - Invalid entry 






$RPJK 


If no antry is specified, bit and 1 are set to 00 {not specified) or 10 {ascending sequence) by default 


135 


1 


$RPEA 


Bits 0-1 
Bits 2-3 


00 = Entry not specified {col 39) 

01 = Line counter specifications 

1 = Extension specifications 

11 - Invalid entry 

00 = Sequential or direct file (col 31 ) 

(blank) 

01 = Packed keys 

10 = Invalid entry /A/K 

11 -ADDROUT file or file 

processed by ADDROUT 
file 


Bit 4 
Bits 5-7 


Reserved 

000 = Sequential or direct file — 

I/O area (col 32) (blank) 
01 1 = Sequential or direct file — 

two I/O areas 
100 = ADDROUT file IT 

entry in column 32} 
110= Indexed file 
111 = Invalid entry 
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Item Byte Defined/ 










Number Length Modified 


Description 








136 12 $RPEA 


Filename {col 7-14 


I 








Byte 11 (Models 10 and 15) = V or D {file format for variable length tape files) 


$RPIG 


Byte 1 1 (Models 10 and 15) = X'00' 






$RPGH 


Bytes 0-7 


Filename 








Bytes 8-9 Address of IOCB 








Byte 10 Bits 0-3 




Bits 4-7 






1000 = 


Consecutive processing 


0001 = 


Input file 




1001 - 


Indexed file processed 


0010 = 


Output file 






randomly by key 


0011 = 


Update/com- 




1010 = 


Direct (disk address) 




bined file 






file 


0100 = 


Add/print file 




1011 = 


Direct (record number) 


0101 = 


Input + add file 






file 


0110 = 


Output + add 




1100 = 


Indexed file 




file 




1101 = 


Indexed file processed 
sequentially within 


0111 = 


Update/combi ned 
-t-add file 






limits 


1000 = 
1010 = 


Output unordered 

file 

Output chain file 




Byte 11 Model 6 




Model 10 




X'10' - 


CONSOLE (printer- 
keyboard) 


X'10' = 


CONSOLE (Printer- 
keyboard) 




X'12' = 


KEYBORD (keyboard) 


X'40' - 


DISKET 




X J 40' = 


DISKET 


X'50 r = 


READ42 (1442 Card 




X'5F' = 


Special IOS routine 




Read-Punch) 




X'80' = 


BSCA 


X'5F' = 


Special IOS routine 




X'84' = 


BSCA with first-time 


X'60* = 


TAPE 






logic 


X*80' = 


BSCA 




X'90' = 


CRT (display station) 


X'84' = 


BSCA with first- 




X'AO' = 


DISK (disk unitj 




time logic 




X'A1 ' = 


Multivolume Disk 


X'AO' = 


DISK (disk unit) A1 




X'EV = 


TRACTR1 (tractor 1) 




Multivolume disk 




X'E2' = 


TRACTR2 (tractor 2) 


X'AI* = 


Multivolume disk 




X'E9' = 


LEDGER (ledger card 


X'CO' = 


DISK45 






device) 


X'EO' - 


PRINTER (line print- 




X'FV = 


DATA9G (data recorder) 




er — carriage 1) 




X'FF' = 


Invalid entry 


X'E8' = 


PRINTR2 (line print- 




Model 12 




er — carriage 2) 




X'10' = 


Console 


X'FO' = 


MFCU1 (MFCU pri- 




X'40 J = 


DISKET 




mary hopper) 




X'50' = 


READ42 (1442 Card 
Read-Punch) 


X'F8' = 


MFCU2 (MFCU 
secondary hopper) 




X'5F' = 


Special 


Model 15 






X'60' = 


Tape 


x'or «= 


Device inde- 




XW = 


BSCA 






: 


X'84' = 
X'AO' = 


BSCA (first time logic) 
DISK 1 5444 simulation 
area) 


X'02' = 


pendent input 
Device inde- 
pendent output 






X'18' = 


CRT77 




X'CO' * 


DISK40orDISK45 










(3340 main data area) 


X'40' = 

X'50' = 


DISKET 

READ42 




X'EO' = 


PRIrJTER -carriage 1 


X*58' = 


READ01 




X'EB' * 


PRINTR2- carriage 2 


X'5F' = 


SPECIAL IOS 




X'FO' = 


MFCU1 — primary hopper 




routine 
TAPE 


' 


X'F8' = 


MFCU2- secondary 


X'60' = 




X'FF' = 


hopper 
Invalid entry 


X'80' - 


BSCA 
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Item 


Byte Defined/ 










Number 


Length Modified 


Description 
















Model 1 5 (continued) 












X'A0' = DISK44 












X'CO' - DISK45, 












DISK40 












X'EO' = PRINTER 












X'E4' - PRINT84 












X'FO' = MFCU1 












X'F2' - MFCM1 












X'F4' - MFCM2 












X'F8' = MFCU2 












X'FF' = Invalid entry 




$RPGI 


•Bytes 2-3. Address of DTP for this file 






$RPGH 


•Bytes 10-11. Data management entry point 






$RPGI 


•Bytes 10-11. Data management entry point 






$RPPA 


"Bytes 4-5. Address of linkage to IPCR routine for this file 




$RPPB 


*Bytes 6-7. Address of linkage to OPCR routine for this file 


137 


2 $RPEA 


Block let 


igth in binary (col 20-23) 






138 


2 $RPEA 


Record length in binary (col 24-27) 






139 


1 $RPEA 


Model 6 




Model 10 






X'10' = 


CONSOLE (printer- 


X'00* = 


Blank device 








keyboard). 


X'10* = 


CONSOLE (printer- 






X'12' = 


KEYBORD 




keyboard) 








(keyboard) 


X'40' = 


DISKET 






X'40* = 


DISKET 


X'50' = 


READ42 (1442 Card 






X'5F* = 


Special I OS routine 




Read-Punch) 






X'80* = 


BSCA 


X'5F' = 


Special IOS routine 






X'84' = 


BSCA with first-time 


X'60 J = 


TAPE 








logic 


X'80' = 


BSCA 






X'90' = 


CRT (display station) 


X'84* - 


BSCA with first 






X'AO' = 


DISK (disk unit) 




time logic 






X'EV * 


TRACTR1 (tractor!) 


X'AO' = 


DISK (disk unit) 






X'E2* - 


TRACTR2 (tractor 2) 


X'CO' = 


DISK45 






X'E9* = 


LEDGER (ledger card 
device) 


X J E0' = 


PRINTER (line print- 
er — carriage 1 ) 






X'FV - 


DATA96 (data recorder) 
or 


X'E8' = 


PRINTR2 (line print- 
er — carriage 2) 








DATA29 (80 col card 


X'FO' = 


MFCU1 (MFCU pri- 








device) 




mary hopper) 






X'FF' = 


Invalid entry 


X'F8' - 


MFCU2 (MFCU second 






Modal 12 


I 




ary hopper) 






X'10' - 


Console 


X'FF' - 


Invalid entry 






X'40' = 


DISKET 


Model 15 








XW = 


READ42 11442 Card 
Read-Punch! 


x'or - 


Device indepen- 
dent input 






X*5F' = 


Special 


X'02' = 


Device indepen- 






XW = 


Tape 




dent output 






X'80' = 


BSCA 


X'18' a 


CRT77 






X'84' = 


BSCA (first time logic) 


X'40* = 


DISKET 






X'AO' = 


DISK (5444 simulation 


xw = 


READ42 








area) 


X'58' = 


READ01 






X'CO' =- 


DlSK40orDISK45(3340 


X*5F' = 


SPECIAL IOS routine 








main data area) 


X'60' = 


TAPE 






X'EO' = 


PRINTER - carriage 1 


X'80' » 


BSCA 






X'E8' - 


PRINTR2 -carriage 2 


X'AO' = 


DISK44 






X'FO' = 


MFCU1 — primary hopper 


X'CO' =» 


DISK45,DISK40 


* Indicates 


an addition or change to a previously defined area, 
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Item 


Byte 


Defined/ 






Number 


Length 


Modified 


Description 










Model 12 (continued! Model 15 (continued) 










X'F8' = MFCU2 - secondary X'EO/ = PRINTER 










hopper X'E4' = PRINT84 










X'FF' - Invalid entry X'FO' - MFCU1 










X'F2' = MFCM1 










X'F4' = MFCM2 










X J F8' = MFCU2 










X'FF* = Invalid entry 




140 


1 


$RPEA 


Keyfield or record address length in binary (col 29-30} 




141 


2 


$RPEA 


Keyfiefd start location in binary (col 35-38) 




142 


2 


$RPEA 


Cylinder index tn binary (col 60-65} 




143 


1 


$RPEA 
$RPGI 


Number of extents (col 68-69) 
Maximum skip value 




144 


2 


$RPEA 
$RPJX 

$RPJZ 
$RPGF 


Overflow indicator (col 33-341 
Overflow default 
Overflow default 
Mask and displacement 




145 


2 


$RPEA 
$RPGF 


File conditioners Ul - U8 (col 71-72] 
Mask and displacement 




146 


6 


SRPEA 


Name of special IOS routine (col 54-59), or array name if continuation 








$RPJW 


Bytes 0*1 . Sequence number of extension specifications defining the array 
if SPECIAL is specified 


used. 


147 


1 


$RPEA 


Continuation Support 

Bits 0-2 000 = Blank in col 53 
100 -SPECIAL used 
010* Kin col 53 
110 = Invalid 

Bits 3-4 00 = Blank or invalid in cot 70 
01 = U in col 70 

1 = R in col 70 

11 =N in col 70 

Bits 5-7 Reserved 
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Item Byte 


Defined/ 










Number Length 


Modified 


Description 








128 1 


$RPEB 


Compression length in binary 






129 1 


$RPEB 


I ndfcates presence of items in compression 






130 1 




Item 129 Bit 1 = (tern number 132 Item 130 


BitO 


1 - Item number 140 






Bit 1 1 * Item number 133 


Bit 1 


1 » Item number 141 






Bit 2 1 * Item number 1 34 


Bit 2 


1 = Item number 142 






Bit 3 1 = Item number 135 


Bits 3-7 Not used 






Bit 4 1 = Item number 136 










Bit 5 1 = Item number 137 










Bit 6 1 = Item number 138 










Bit 7 1 = Item number 139 






131 1 




Item 131 


Not used 






132 2 


$RPEB 


Byte 0, Bit 
Bit 1 

Bit 2 

Bit 3 
Bit 4 

Bit 5 


1 = I nvalid compression 

1 = Invalid From Filename (col 11-18) 

1 = Invalid To Filename {col 19-26) 

1 = Invalid Table or Array Name (col 27-32) 

1 = Invalid Alternate Table or Array Name 

Icol 46-51) 
Not used 








$RPGW/ 


•Byte 0, Bit 6 


= Object-time table or array name 








$RPGY** 


•Bit 7 
Byte 1 


1 = Compile-time table or array name 

= Object-time alternate table or array name 

1 = Compile-time alternate table or array name 
Not used 






133 1 


$RPEB 


BitO 
Bit 1 
Bits 2-3 

Bits 4-7 


" 1 = Table in ascending sequence (col 45) 
1 = Table in descending sequence 

00 = Unpacked or alphameric (col 43) or invalid 

01 = Packed 
10 = Binary 

0000-1001 = Decimal positions entry Icol 44) 
1010 = Alphameric table or array 






134 1 


$RPEB 


BitO 
Bit 1 
Bits 2-3 

Bits 4-7 


1 = Alternate table in ascending sequence (col 57) 
1 = Alternate table in descending sequence 

00 - Unpacked or alphameric (col 55) 

01 ■» Packed 
1 - Binary 

000O-1O01 - Decimal positions entry (cdI 56) 
1010 = Alphameric table or array 






135 14 


$RPEB 
$RPGI 


FROM filename (col 11-18) 
Defines bytes 0-1 1 . See note 1 






136 14 


$RPEB 
$RPGl 


TO filename (col 19-26) 
Defines bytes 0-11. See note 1 








$RPPJ 


■Byte 0, Bit 

•Byte 4, Bit 6 
*Bit7 

•Bytes 12-13 


1 - MFCU print {Models 10 and 12) 

1 = End of file 
1 = File translate 

Address of OPCR routine 






* Indicates an addition or change to a previously defined area. 
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Item 


Byte 


Defined/ 






Number 


Length 


Modified 


Description 




137 


6 


$RPEB 


Table or array name (col 27-32) 






$RPGW/ 


Byte 0. 








$RPGY** 


Alphameric length = Length minus one 








Numeric length 


= Length minus one In the numeric position; 
number of decimal positions in the zone portion 








Byte 1 Bit 


1 <= Look-ahead field 








Bit 1 


Not used 








Bits 2-3 


01 = Array name 
1 = Table name 








Bits 4-5 


00 = Table sequence not specified 

01 ■» Table is descending 
10 = Table is ascending 








Bit 6 


= Length is alphameric (see byte 0) 

1 = Length is numeric 








Bit 7 


Not used 








Bytes 2-3. 


Address of rightmost byte of first element 








Bytes 4-5. 


DTT address 


138 


2 


SRPEB 


Number of entries 


per table or array in binary (col 36-39) 


139 


2 


$RPEB 


Length of entry in binary (col 40-42} 






$RPGW/ 


If the length specified is invalid, the length is set to 15 (X'OF*). 






$RPGY*» 






140 


2 


$RPEB 


Number of entries 


per record (col 33-351 


141 


6 


$RPEB 


Alternate table or array name (col 46-51} 






$RPGW/ 


Byte 








$RPGY #- 


1. Alphameric length = Length minus one 








2. Numeric length 


= Length minus one in the numeric positions- 
number of decimal positions in the zone portion 








Byte 1 Bit 


1 - Look-ahead field 








Bit 1 


Not used 








Bits 2-3 


01 - Array name 
10 = Table name 








Bits 4-5 


00 = Table sequence not specified 

01 = Table is descending 
10 = Table is ascending 








Bit 6 


= Length is alphameric (see byte 0) 








Bit 7 


Not used 








Bytes 2-3. 


Address of rightmost byte of first element 








Bytes 4-5. 


DTT address 


142 


7 


$RPEB 


Length of entry in 


binary (col 52-54) 






$RPGW/ 


If the length specified is invalid, the length is set to 1 5 {X'OF'}. 






$RPGY*» 
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Note 1: 

Byte 0, Bits 3-7 
Bytes 1-2 

Byte 3 (Model 6) 



Byte 3 {Model 10) 



Byte 3 (Model 12) 



Byte 3 {Model 1 5) 



Sequence number 
DTF address 

X'10' = CONSOLE {printer-keyboard) 

X'12" = KEYBORD (keyboard) 

X J 40' = DISKET 

X'5F' = Special I OS routine 

X'80' = BSCA 

X'84' = BSCA with first-time logic 

X*90' = CRT {display station) 

X'AO' = DISK (disk unit) 

X'E1' = TRACTR1 Itractorl) 

X'E2' = TRACTR2 (tractor 2) 

X'E9' = LEDGER (ledger card device) 

XT1' = DATA96 (data recorder) 

X'FF* = Invalid entry 

X'10' = CONSOLE (printer-keyboard) 

X'40' = DISKET 

X'50' - READ42 {1442 Card Read-Punch) 

X'5F' = Special IOS routine 

X'60* = TAPE 

X'80' = BSCA 

X'84' = BSCA with first time logic 

X'AO' = DISK (disk unit) 

X'CO* = DISK45 

X'EO' ■* PRINTER {line printer - carriage 1) 

X'E8* = PRINTR2(line printer - carriage 2) 

X'FO* = MFCU1 (MFCU primary hopper) 

X'F8' = MFCU2 (MFCU secondary hopper) 

X'FF* = Invalid entry 

X'10' = Console 

X'40' = DISKET 

X'50* = READ42 (1442 Card Read-Punch) 

X'5F' = Special 

X'60' = Tape 

X'80' = BSCA 

X'84' = BSCA (first time logic) 

X'AO' = DISK (5444 simulation area) 

X'CC = DISK40or DISK45 (3340 main data area) 

X'EO' = PRINTER - carriage 1 

X'E8' = PRINTR2 - carriage 2 

X'FO' = MFCU1 - primary hopper 

X'F8' ■ MFCU2 — secondary hopper 

X'FF' ~ Invalid entry 

X'01 ' = Device independent input 

X'02' = Device independent output 

X*18' = CRT77 

X'40' = DISKET 

X'50* = READ42 

X*58* = READ01 

X'5F' = SPECIAL IOS routine 

X'60' = TAPE 

X'80* = BSCA 

X'A0' = DISK44 

X'CO' = DISK45. DISK40 

X'EO' = PRINTER 

X'E4*=PRINT84 

X'FO'-MFCUI 

X'FO' = MFCU1 



X'F2'-MFCM1 
X J F4' = MFCM2 
X'F8' = MFCU2 
X'FF' = Invalid entry 

Byte 4, Bits 0-3 0001 = Primary file 

0010 = Secondary file 

1 000 = Chained file 

1001 = Demand file ' 
1010= Record address file 
1100 = Table file 

Bits 4-5 00 = No specified sequence 
Of = Descending sequence 
1 = Ascending sequence 

Byte 5, Bits 0-1 00 = Sequential file 

01 = indexed file 

10 = Direct file 

11 = ADDROUTfile 

Bits 2-3 00 = Consecutive processing 

01 = Random processing 

10 = Indexed file processed sequentially by key 

11 = Indexed file processed sequentially within limits 
Bits 4-6 001 = Display file 

Oil = Update file 

100 = Combined file 

101 = Regular output file 
110= Input file 

111= Unordered sequence 
Bit 7 1 = Addition specified 

Byte 6, Bit = Variable format 

1 = Fixed format 
Bit 1 = Unblocked file format 

1 - Blocked file format 
Bits 2-3 01 " Extension specifications 

10 - External indicators 
Bits 4-6 000 = Indexed file processed consecutively 

010 » Indexed key {alphameric) 

011 ■ Indexed key {packed) 

100 - Record identification (disk address) 
110" Record number 
Bit 7 1 - Dual I/O 

Byte 7 Overflow mask 

Bytes 8-9 Record length 

Bytes 10-11 I OCB address 

* Indicates an addition or change to a previously defined area. 
•* Either phase $RPGW or $RPGY is Joaded depending on 
whether an object-time table or a compile time table has 
been loaded. 
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Item 


Byte Defined/ 










Number 


Length Modified 


Description 








128 


1 $RPEC 


Compression length 


in binary 






129 


1 $RPEC 


Indicates presence of item in compression when bits are or 


(Bit-1) 






Item 1 29 Bit 1 - Item number 1 32 


Bit 3 1 - Item number 135 






Bit 1 1 = Item number 133 


Bits 4-7 Not used 






Bit 2 1 = Item number 1 34 






130 


1 


Item 130 


Not used 






131 


1 


Item 131 


Not used 






132 


1 $RPEC 


Bit 1 ■ Invalid compression 

Bit 1 1 - Invalid or missing filename 

Bits 2-7 Not used 






133 


13 $RPEC 

$RPGI 


Filename (col 7-14 
Byte Bits 3-7 












Sequence Number 










Bytes 1 -2 DTF address 










Byte 3 Model 6 




Model 10 






X'10' = 


CONSOLE (printer- 
keyboard) 


X'10' = 


CONSOLE (printer- 
keyboard) 






X'12' = 


KEYBORD (keyboard) 


X'40' = 


DISKET 






X'40' = 


DISKET 


X'50' = 


READ42 (1442 Card 






X'SF' - 


Special IOS routine 




Read-Punch) 






X'80' = 


BSCA 


X'5F' = 


Special IOS routine 






X'84' = 


BSCA with first-time 


X'60' = 


TAPE 








logic 


X'80' - 


BSCA 






X'90' - 


CRT (display station) 


X'84' = 


BSCA with first-time 






X'AO' - 


DISK (disk unit) 




logic 






X'EI* = 


TRACTR1 (tractor 1) 


X'AO' = 


DISK (disk unit) 






X'E2' = 


TRACTR2 (tractor 2) 


X'CO' = 


DISK45 






E'E9' = 


LEDGER (ledger card 
device) 


X'EO' = 


PRINTER (line print- 
er— carriage 1) 






X'FV - 


DATA96 (data recorder) 


X'E8' = 


PRINTR2 (line print- 






X'FF' = 


Invalid entry 


X'FO' = 


er — carriage 2) 
MFCU1 (MFCU pri- 






Model 12 






mary hopper) 






X'10' =- 


Console 


X'F8' = 


MFCU2 (MFCU 






X'40* = 


DISKET 




secondary hopper) 






X J 60' = 


READ42 (1442 Card 
Read-Punch) 


X'FF' = 


Invalid entry 






X*5F' = 


Special 


Model IE 








X'60' - 


Tape 


x'or * 


Device Indepen- 






XW = 


BSCA 




dent input 






X'84' - 


BSCA (first time logic) 


X'02' = 


Device Indepen- 






X'AO' = 


DISK (5444 si mutation 




dent output 








area) 


X'18' = 


CRT77 






X'CO' = 


DISK40 or DI5K45 


X'40* - 


DISKET 








(3340 main data area) 


X'50' = 


READ42 






X'EO* - 


PRINTER -carriage 1 


X'58' = 


READ01 






X'E8' - 


PRINTR2- carriage 2 


X'5F' = 


SPECIAL IOS 






X'FO' = 


MFCU1 — primary hopper 




routine 






X'FS' = 


MFCU2 - secondary 


X'60' = 


TAPE 








hopper 


X*80* = 


BSCA 






X'FF' - 


Invalid entry 


X'AO' = 
X'CO' = 
X'EO' = 
X*E4' = 
X'FO' = 


DISK44 

DISK45. DISK40 
PRINTER 
PRINT84 
MFCU1 
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1 

Item Byte Defined/ 








Number Length Modified 


Description 










Model 1 5 {continued) 








X'FO* - MFCU1 








X'F2' = MFCM1 








X'F4' = MFCM2 








X'F8* = MFCU2 








X'FF' = Invalid entry 




Byte 4 


Bits 0-3 


Bits 4-5 






0001 = Primary file 


00 = No specified sequence 






0010 * Secondary file 


01 = Descending sequence 






1000 = Chained file 


10 - Ascending sequence 






1001 = Demand file 


Bit 6 

1 = End of fiie 






1010 = Record address file 




Byte 5 


Bits 0-1 


Bits 4-6 






00 = Sequential file 


001 = Display file 






01 - Indexed file 


011 -Update file 






10 = Direct file 


100 = Combined file 






1 1 = ADDROUT file 


101 = Regular output file 






Bits 2-3 

00 = Consecutive processing 


110 = Input file 

111= Unordered sequence 






01 = Random processing 


Bit 7 






10 = Indexed file processed 


1 = Addition specified 






sequentially by key 








1 1 = Indexed file processed 








sequentially within limits 






Byte 6 


BitO 


Bits 4-6 






- Variable format 


000 = Indexed file processed 






1 = Fixed format 


consecutively 






Bit 1 


010 - Indexed key (alphameric) 






= Unblocked file format 

1 = Bfocked file format 


011 - Indexed key (packed) 

100 = Record identification 

(disk address) 






Bits 2-3 


110 = Record number 






01 = Line Counter 


Bit 7 

1 = Dual I/O 






specifications 
10 = External indicators 




Byte 7 


Overflow mask 






Bytes 8-£ 


I Record Length 






Bytes 10-11 IOCB address 






Byte 12 


Bits 0-3 
Operation Code 

Bits 4-7 

Number of parameters 




134 2 $RPEC 


Form length in binary 




135 2 $RPEC 


Overflow 


number in binary 
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Item 


Byte 


Defined/ 










Number 


Length 


Modified 


Description 








128 


1 


$HPEI 


Compression length 


in binary 






129 


1 


$RPEI 


Indicates presence of item in compression when bits are on |Bit-1) 






130 


1 




Item 129 BitO 


1 - Item number 1 32 Item 131 


BitO 


I - Item number 148 


131 


1 




Bit 1 


1 - Item number 133 


Bit 1 


=> Item number 149 








Bit 2 


1 - Item number 134 


Bit 2 


1 - Item number 150 








Bit 3 


1 * Item number 135 


Bit 3 


1 - Item number 151 








Bit 4 


1 - Item number 136 


Bit 4 


I - Item number 152 








Bit 5 


1 - Item number 137 


Bit5 


1 » Item number 153 








Bit 6 


1 - Item number 138 


Bit 6 


1 - Item number 154 








Bit 7 


1 - Item number 139 


Bit 7 


Reserved 








Item 130 Bit 


1 - Item number 140 












Bit 1 


1 - Item number 141 












Bit 2 


1 - Item number 142 












Bit 3 


1 » Item number 143 












Bit 4 


1 » Item number 144 












Bits 5-7 100 - Item number 145 














1 10 =» Item numbers 145 and 146 














(2-byte extension) 














101 - Item numbers 145 and 147 














{4-byte extension) 






132 


3 


$RPEI 

$RPJA 

$RPGW/ 
SRPGY* 11 

$RPHC 

$RPJJ 

$RPJS 


Byte 0, Bit 
Bit 1 

Bit 2 
Bit 3 
Bytes 1 -2 

Bytes 1-2 

•Bytel, Bit 4 
•Bit5 
•Bit 7 

•Bytel, Bit 4 
•Bit5 
•Bit 7 

•ByteO, BitS 
•Bit 6 
•Bit 7 

Bytes 0-1 
Byte 0, Bit 


1 = Invalid compression 
1 = Invalid filename 
1 = invalid field name 
1 = TR{col 19-201 
Sequence {col 15-16) 

X'0000' 

1 = Field name definition resolved 

1 = I ndex resolved 

1 - Symbol in table (set by phase $RPHA) 

1 ■ Field name definition resolved 

1 ■ Index resolved 

1 ■ Symbol in table (set by phase $RPHA) 

1 =« Control fields move optimized 
1 » Match fields move optimized 
1 - Move field optimized 

Address of the trailer table for the current 
trailer specification is placed in the trailer 
record type specification 
1 -= For all record type compressions (AND/OR 
lines included) of header portion of spread card 
to flag as header record 










$RPPE 


•Bytes 1-2 


Address for the record ID routine to return to when the record 


is identified 






$RPPF 


•Bytes 1-2 


Address of the record identification parameter 










$RPPN 


•Bytes 1-2 


Address of parameter list for chain and demand files 





Figure 3-5, Input Compxessions (Part 1 of 6) 

3-28 



licensed Material-Property of IBM 



Item 


Byte 


Defined/ 






Number 


Length 


Modified 


Description 




133 


1 


$RPEI 


Bits 0-1 

Bit 2 
Bit 3 
Bit 4 
Bits 5-7 


00 - Number is blank (col 17) 

01 - Number contains a 1 

1 - Number contains an N 

11 =" Invalid entry 

1 » Option contains an (col 18) 

1 -AND 

1 -OR 

Stacker Select (col 42) 

000 - blank or invalid 

100 -stacker 4 

101 -stacker 1 

110 -stacker 2 

1 1 1 - stacker 3 






$RPJA 


•Bit 
•Bit 1 

•Bit 2 


= Alphabetic sequence entry (col 15-16) 

1 - Numeric sequence entry 

- Number contains an N (col 17) 

1 - Number contains a 1 
1 - Optional 






$RPJS 


The length minus one of one trailer of current trailer specification is placed in the record type 








specification. 




134 


1 


$RPEI 


BitO 
Bits 2-3 

Bits 4-7 


1 - Look-ahead field (col 19-20) 

00 - Unpacked or alphameric (col 43) 

01 - Packed 
10 - Binary 

0000-1001 - Decimal positions entry (col 52) 
1010 - Alphameric field 






$RPJA 


If bit is on, it is propagated for all look-ahead fields specified. A decimal position defaults to zero. 






$RPGW/ 


•BitO 


- Alphabetic sequence entry (col 15-16) 






$RPGY"* 


•Bit1 


1 = Numeric sequence entry 

= Object-time table or array name 

1 - Compile-time table or array name 






$RPHS 


This byte is not defined for demand or chain files. 








•Bit 1 


1 = Numeric sequence used in this file 








•Bit 2 


1 = Console file - record length needed in IOS parameter 








•Bit 3 


1 - Numeric sequence 








*Bit4 


1 = Match fields 








*Bit5 


1 = Control fields 








•Bit 6 


1 = Input fields 








•Bit 7 


1 - Stacker select needed 






$RPJJ 


•Bits 4-7. Numeric portion set to packed, binary, or sterling length 


135 


15 


$RPEI 


Filename (col 7-1 4 1 






$RPGI 


Byte 0, Bits 3-7 
Bytes 1-2 


Sequence number 
Pre-open DTF address 
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Item Byte Defined/ 










Number Length Modified Description 










Byte 3 Model 6 




Model 10 




X'10' = 


CONSOLE (printer 
keyboard) 


X'10' = 


CONSOLE (printer 
keyboard) 




X'12' = 


KEYBORD 


X'40* - 


DISKET 






(keyboard] 


X'50' » 


READ42 (1442 Card 




X'40' = 


DISKET 




Read-Punch) 




X'5F* *= 


SPECIAL (special 


X'5F' = 


Special IOS routine 






IOS routine) 


X'60' = 


TAPE 




X'80' » 


BSCA 


X'80' - 


BSCA 




X"84' = 


BSCA (BSCA with 
first-time logic) 


X'84' = 


BSCA with first 
time logic 




XW = 


CRT (display station) 


X'A0 J = 


DISK (disk unit) 




X'AO' - 


DISK (disk unit) 


X'CO' = 


DISK45 




X'EV = 


TRACTR1 (tractor 1) 


X'EO' = 


PRINTER (line print- 




X'E2' = 


TRACTR2 (tractor 2) 




er — carriage 1) 




X'E9' = 


LEDGER (ledger card 
device) 


X'E8' = 


PRINTR2(Jine print- 
er — carriage 2) 




X'FV - 


DATA96 (data 
recorder) 


X'FO* *= 


MFCU1 (MFCU pri- 
mary hopper) 




X'FF' = 


Invalid entry 


X'F8' = 


MFCU2 (MFCU 
secondary hopper) 




Model 12 




X'FF' = 


Invalid entry 




X'10' = 


Console 








X'40' = 


DISKET 


ModeJlC 






XSO' = 


READ42 (1442 Card 
Read-Punch) 


x-or = 


Device inde- 
pendent Input 




X'5F' = 


Special 


X J 02' = 


Device inde- 




XW - 


Tape 




pendent output 




XW =- 


BSCA 


X'18' = 


CRT77 




XW - 


BSCA (first time logic) 


X*40* - 


DISKET 




X'AO' = 


DISK (5444 simulation 


X'50' = 


READ42 






area) 


X'58' * 


READ01 




X'CO' = 


DISK40orDISK45 
(3340 main data area) 


X'5F' = 


SPECIAL IOS 

routine 




X'EO' - 


PRINTER -carriage 1 


XW = 


TAPE 




X J E8' = 


PRINTR2- carnage 2 


X*80' = 


BSCA 




X'FO 1 * 


MFCU1 —primary hopper 


X'AO' - 


DISK44 




X'F8' = 


MFCU2 — secondary 


X'CO' = 


DISK45, DISK40 






hopper 


X'EO' * 


PRINTER 




X'FF' - 


Invalid entry 


X'E4' = 
X'FO' - 
X'F2' « 
X*F4' = 
X*F8' = 
X'FF 1 = 


PRINT84 

MFCUl 

MFCMl 

MFCM2 

MFCU2 

Invalid entry 




Byte 4 Bits 0-3 




Bits 4-5 






0001 = Primary file 


00 = No specified sequence 




0010 = Secondary file 


01 = Descending sequence 




1000 = Chained file 


10 = Ascending sequence 




1001 = Demand file 








1010 = Record address file 


Bit6 










1 = End of file 








Bit 7 










1 * File translate 




Byte 5 Bits 0-1 




Bits 4-6 






00 = Sequential file 


001 = Display file 




01 - Indexed file 


011 -Update file 




10= Direct file 


100 * Combined file 




11 =ADDROUTfile 


101 = Regular output file 





Figure 3-5. 
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Item Byte Defined/ 

Number Length Modified Description 



Bits 2-3 

00 = Consecutive processing 

01 - Random processing 
10 - Indexed tile processed 

sequentially by key 
11= Indexed file processed 
sequentially within 
limits 



110 = Input file 

111 = Unordered sequence 

Bit 7 

1 = Addition specified 







Byte 6 


Bit Bits 4-6 

= Variable format 000 = Indexed file processed 

1 ~ Fixed format consecutively 

010 = Indexed key 
Bit 1 (alphameric) 

= Unblocked file format 01 1 = Indexed key (packed) 

1 - Blocked file format 1D0 = Record identification 

(disk address) 
Bits 2-3 110 = Record number 
01 = Extension or line 

counter specif i catio ns B it 7 
10 = External indicators 1 - Dual I/O 


Byte 7 Overflow mask 

Bytes 8-9 Record length 
Bytes 10-1 1 IOCB address 

Byte 12 Bits 0-3 

Operation code 

Bits 4-7 

Number of parameters 




$RPPJ 


•Bytes 13-14 Address of linkage to IPCR for this file 




136 


2 


$RPEI 

$RPGF 


Record identification indicator (col 19-20) 
Mask and displacement 




137 


2 


$RPEI 

SRPJJ 


Position in binary (col 21-24) 
Position minus one 




138 


2 


$RPEI 


See note 1 




139 


2 


$RPEI 
$RPJJ 


Position in binary (col 28-31) 
Position minus one 




140 


2 


$RPEI 


See note 1 




141 


2 


$RPEI 
$RPJJ 


Position in binary (col 35-38) 
Position minus one 




142 


2 


$RPEI 


See note 1 




143 


2 


$RPEI 

$RPJA 


FROM field location in binary (col 44-47) 
See note 2 




144 


2 


$RPEl 
$RPJA 
SRPJJ 


TO field location in binary (col 48-51) 

See note 2 

TO field location minus one 




145 


6 


$RPEI 
$RPGF 


Field or array name (col 53-58) 
See note 4 
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Item 
Number 


Byte 
Length 


Defined/ 
Modified 


Description 






$RPGW/ 
$RPGY" 


If an array name, the following is set: 

Byte 0. See note 3 

Byte 1. See note 4 

Bytes 2-3. Address of rightmost byte of first element for an array or an array with a variable index, 

or, the address of the rightmost byte of indexed element for an array with a constant Index. 
Bytes 4-5. DTT address 






$RPHC 


If a field name, the following is set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of the rightmost byte of the field 

Bytes 4-5. X'OOOO' 


146 


2 


$RPGW/ 
$RPGY" 


For an array with a constant index, numeric value of the array index is set. 


147 


4 


$RPHC 


For an array with a variable index, the following Is set: 

Byte 0. See note 3 

Byte 1. See note 4 

Bytes 2-3. Address of rightmost byte of field 


148 


2 


$RPEl 


Control level (col 59-60) 






$RPHS 


Zone portion of byte zero is set off 


149 


1 


$RPEI 


Match fields (col 61-62) 






$RPHS 


Zone portion of byte is set off 


150 


2 


$RPEI 


Field record relation indicator (col 63-63) 






$RPGF 


Mask and displacement 


151 


2 


$RPEl 


Plus indicator (col 65-66) 






$RPGF 


Mask and displacement 


152 


2 


$RPEI 


Minus indicator (col 67-68} 






$RPGF 


Mask and displacement 


153 


2 


$RPEI 


Zero or blank indicator {col 69-70) 






$RPGF 


Mask and displacement 


154 


2 


Reserved 





Note 1 : 

Byte 0, Bit 

Bits 4-7 



Byte 1 



1 = N entry {col 25, 32, 39) 

001 1 = C entry (col 26, 33, 40) 

0100= D entry 

1001 =Z entry 

0000 - Entry not specified 

Character (col 27, 34,41) 



FROM Field Location entry defaults to 1. 

TO Field Location entry defaults to 1 5 if numeric and to 256 

If alphameric. 

Note 3 : 

Alphameric length - Length minus one 

Numeric length = Length minus one in the numeric portion; 

number of decimal positions in the zone 

portion 



Note 2: if an invalid entry is specified, then default values are 
set: 
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Note 4: 



BitO 


1 = Look-ahead field 


Bits 2-3 


00 = Field name 




01 = Array name 




10= Table name 


Bits 4-5 


00 = Table sequence not specified 




01 = Table is descending or field name is 




UDATE related field 




10 = Table is ascending or, if RLABL is 




specified, field name or mask and 




displacement of the indicator 


Bit 6 


= Length is alphameric 




1 - Length is numeric 



" Indicates an addition or change to a previously defined area. 
•* Either phase $RPGW or $RPGY is loaded depending on 
whether an object-time table or a com pile-time table has 
been loaded. 
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Item 
Number 


Byte 
Length 


Defined/ 
Modified 


Description 


128 


1 


$RPEK 


Compression length in binary 


129 


1 


$RPEK 


Indicates the presence of an item in a compression 
Item 129 Bit 1 = Item number 132 
Bit 1 1 = Item number 133 
Bit 2 1 = Item number 134 
Bit 3 1 = Item number 135 
Bit 4 1 = Item number 136 
Bit 5 1 = Item number 137 
Bit 6 1 = Item number 138 
Bit 7 1 = Item number 139 


130 


1 


$RPEK 


Second format byte which indicates the presence of an item in a compression 

Factor 1 definition — contents of Factor 1 

Bits 0-3 1000 = Item number 140 — field or array name 

11 00"= Item numbers 140 and 141 (4-byte extension) — alphameric or numeric literal 
1010 = Item numbers 140 and 142 (2-byte extension) — array with constant index 
1001 ■ Item numbers 140 and 143 {6-byte extension) —array with variable index 

Factor 2 definition — contents of Factor 2 

Bits 4-7 1000 = Item number 144 — array or field name 

1100 = Item numbers 144 and 145 (4-byte extension) —alphameric or numeric literal 

1010 = Item numbers 144 and 146 (3-byte extension) — array with constant index 
1001 = Item numbers 144 and 147 (8-byte extension) — array with variable index 

1011 = Item numbers 144, 146, and 147 {9-byte extension) —filename 


131 


1 


$RPGK 


Third format byte which indicates the presence of an item in a compression 

Result field definition — contents of result field 

Bits 0-2 100 = Item number 1 48 — field or array name 

110 = Item numbers 148 and 149 (2-byte extension) — array with constant index 
101 - Item numbers 148 and 150 j4-byte extension) — array with variable index 
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Item 
Number 



Byte 
Length 



Defined/ 
Modified 



Description 



132 



$RPEK 



$RPGV 



$RPGW/ 
$RPGY** 



$RPHC 



$RPMB 
$RPMI 
$RPU 

$RPMG 



Remainder of Calculation Specification defined 



Bit 3 
Bit 4 

Bit 5 
Bit 6 
Bit 7 

Byte 0, 



1 = Item number 151 
1 = Item number 152 
1 * Item number 153 
1 - Item number 154 
Not used 



Byte 0, 



>Byte1, 



BitO 
Bit 1 

Bit 2 
Bit 3 
Bit 4 
Bit 5 

Bit5 
'Bit 6 
'Bit 7 

BitO 
'Bit 1 

'Bit 2 
'Bit 3 
'Bit 4 
'Bit 5 
'Bit 7 



Bytel, BitO 
♦Bit 1 
•Bit 2 
•Bit 3 
•Bit 4 
•Bit 5 
•Bit 7 



1 - Invalid compression 
1 = Factor 1 (col 18-27) invalid 
1 = Factor 2 [col 33-42) invalid 
1 - Result Field (col 43-48) invalid 
1 = Factor 2 contains a filename 
1 = Factor 2: •BOTH 

1 = Factor 1 table/array shortest 
1 » Factor 2 table/array shortest 
1 » Result Field table/array shortest 

1 = Factor 1 resolved 

1 = Factor 1 index resolved 

1 = Factor 2 resolved 

1 = Factor 2 index resolved 

1 ~ Result Field resolved 

1 s Result Field index resolved 

1 - Symbol in table (set by phase $RPHA) 

1 ■ Factor 1 resolved 

1 = Factor 1 index resolved 

1 ~ Factor 2 resolved 

1 = Factor 2 index resolved 

1 - Result Field resolved 

1 = Result Field index resolved 

1 - Symbol in table (set by phase $RPHA) 



* Byte 2. Length of object code block for the operation code 
•Byte 2. Length of object code block for the compression 
•Byte 2. Length of object code block for the operation code 

Byte 2. Length of object code block for the operation code. 



$RPQA *Bytes 0-1 . Address of generated object code 

# Byte 2. Length of object code block for the operation 
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Item 


Byte Defined/ 






Number 


Length Modified 


Description 




$RPMH 


•Byte 2. 


Length of object code block for the operation. 






•Byte 3. 


Length of leading array control, or for move type operation code, the first byte 
of a 2-byte mask (second byte is in item 134) 




$RPMP 


•Bytes 0-1 . 


Address of generated object code 


133 


1 $RPEK 


BitO 


1 = SR (cor 7-8! 






Bit 2 


1 = Half adjust (col 53) 






Bit 3 


1 = AN (col 7-8) 






Bit 4 


1 = OR (col 7-8) 






Bit 5 


1 =Not(col15J 






Bit 6 


1 = Not (col 12) 






Bit 7 


1 - Not (col 9) 




$RPGG 


*Bit1 


1 = DEBUG not specified so treat as comments 






*Bit 2 


- No half adjust (this bit is set off if a DIV operation is 

followed by an MVR operation) 

1 = Half adjust 




$RPJG 


•Bit 1 


1 = Compressions relative to SET operation on SET/KEY combinations are 
flagged to be ignored when generating object code 




$RPQK 




Object code mask for determining what (if any) code to generate for 
array control. 


134 


1 $RPEK 


Bits 0-3 


Not used 






Bits 4-7 


X'0'-X'9'= Decimal position entry (col 52) 
X'A' = Alphameric field 




$RPGW/ 


•BitO 


= Object-time table (Factor 1 ) 




$RPGV 




1 = Compile-time table (Factor 1 ) 






•Bit 1 


= Object-time table (Result Field) 

1 - Compile-time table (Result Field) 






•Bit2 


= Object-time table (Factor 2) 

1 = Compile-time table (Factor 2) 






Bit 3 


Not used 




$RPGX 


•Bits 4-7. 


Not used 




$RPLG 


Permanent length (bit 4 or 5 for SET or KEY) 




$RPMB 


Mask of object code to be generated 




$RPU 


•Bits 0-2 


000-Tabset 

100 - Space/skip and/or position print element 

010 = Ledger card eject 

001 = Key operation code resulting indicator 






•Bits 4-7 


0001 = Command keys (no manual mode or field name) 

0010 = Manual mode (no command keys) 

001 1 = Manual mode (command keys) 

0100 - Field name (no command keys) 

0101 = Field name (command keys) 




$RPMH 


Mask of remainder of object code to be generated or second byte of a 2-byte mask for a move 
operation code. The first byte is in item 1 32. 


135 


5 $RPEK 


Operatior 


) codes [con terns of col 28-32) 
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Item 
Number 


Byte 
Length 


Defined/ 
Modified 


Description 






$RPEW 
SRPJG 


Byte 0. Operation code mask. See note 2 

Byte 1. Field light mask. See note 2 

•Byte 1 . X'FF' = SET/KEY combination found 






$RPHU 


If SETLL operation code, the following are set: 
Byte 1. Key length minus 1 
Bytes 2-3. Address of low key area 






$RPLR 


Bytes 3-4. Address of parameter list if required for operation code. 


136 


2 


$RPEK 


Control level indicator (col 7-8) 






$RPGF 


Mask and displacement 






$RPMt 


See note 1 


137 


2 


$RPEK 


Indicator (col 10-11) 






$RPGF 


Mask and displacement 






$RPGG 


•Byte 1 . Bit 1 = zero in displacement if Not (N) is specified for indicator 






$RPMI 


See note 1 


138 


2 


$RPEK 


Indicator {cot 13-14) 






$RPGF 


Mask and displacement 






$RPGG 


*Byte 1 . Bit 1 - zero in displacement if Not {N) is specified for indicator 






$RPMI 


See note 1 


139 


2 


$RPEK 


Indicator {col 16-17) 






$RPGF 


Mask and displacement 






$RPGG 


•Byte 1 . Bit 1 - zero in displacement if Not {N) is specified for indicator 






$RPMI 


See note 1 


140 


6 


$RPEK 


Factor 1 (contents of col 18-27} 






$RPGW/ 
$RPGY*« 


If an array name, the following are set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of first element for an array or an array with a variable index, or 

the address of rightmost byte of indexed element for an array with a constant index 

Bytes 4-5. DTT address 






$RPHC 


If a field name, the following are set: 

Byte 0. See note 3 

Byte 1. See note 4 

Bytes 2-3. Address of rightmost byte of field 

Bytes 4-5. X*0000' 






$RPLN 


For a literal, the following are set: 
Byte 0. See note 3 
Byte 1. See note 4 






$RPLR 


For a literal, the following are set: 

Bytes 2-3. Address of rightmost byte of literal 

Bytes 4-5. These bytes are not used 
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Item 


By fa 


Defined/ 




Number 


Length 


Modified 


Description 






$RPMP 


If BEGSR and EXSR are specified: 
Bytes 0-1 . Start address of subroutine 
Bytes 2-3. Length of subroutine 
Bytes 4-5. Subroutine identifier 






$RPQD/ 


Bytes 2-3. Object code address where element address is to be placed (for array table or array with 






$RPQG/ 


variable index) 






$RPQH 




141 


4 


$RPEK 


Item acts as 4-byte extension to item 140 when alphameric or numeric literal is defined in Factor 1 . 


142 


2 


$RPEK 


Item acts as a 2-byte extension to item 140 when an array with constant index is specified in Factor 1. 


143 


6 


$RPEK 


Item acts as a 6-byte extension to item 140 when an array with variable index is specified in Factor 1 . 






$RPHC 


For an array with a variable index, the following are set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of Tag field 

Bytes 4-5- X'0000' 


144 


6 


$RPEK 


Factor 2 (contents of col 33-42) 






$RPGW/ 


If an array name, the following are set: 






$RPGY»* 


Byte 0. See note 3 

Byte 1. See note 4 

Bytes 2-3. Address of rightmost byte of first element for an array or an array with a variable index, 

or, address of rightmost byte of indexed element for an array with a constant index. 

Bytes 4-5. DTT address 






$RPHC 


If a field name, the following are set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of field 

Bytes 4-5. X'0000* 
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kern 


Byte Defined/ 






Number 


Length Modified Description 








$RPGI If a filename, the following are set: 






Byte 0. Bit 


1 = MFCU print (Model 10) 




Bits 3-7 


Sequence number 






Bytes 1-2 


DTF address 






Byte 3 Model 6 




Model 10 




x j i<r * 


CONSOLE (printer- 


X'10' - CONSOLE (printer- 






keyboard) 


keyboard) 




X'12' - 


KEYBORD (keyboard) 


X*40' = DISKET 




X J 40' * 


DISKET 


X'50 r = READ42 (1442 Card 




X'5F' - 


Special IOS routine 


Read-Punch) 




X'80' = 


BSCA 


X'5F' = Special fOS routine 




X'84' = 


BSCA with first -time 


X'60' = TAPE 






logic 


X'80' = BSCA 




X'90' = 


CRT (display station) 


X'84' = BSCA with first-time 




X'AO' = 


DISK (disk unit) 


logic 




X'EV = 


TRACTR1 (tractor 1 ) 


X'AO' * DISK (disk unit) 




X'E2' * 


TRACTR2 (tractor 2) 


X'CO' = DISK45 




X'E9' - 


LEDGER (ledger 


X'EO' - PRINTER - carriage 1 






card device) 


X J E8' * PRINTER - carriage 2 




X'FV - 


DATA96 (data recorder) 


X'FO' * MFCU1 (MFCU primary 




X'FF' - 


Invalid entry 


hopper) 

X'F8' = MFCU2 (MFCU second- 
ary hopper) 

X'FF' = Invalid entry 




Model 12 


► 


Model 15 




X'10' - 


Console 


X'01' = Device indepen- 




X'40' - 


DISKET 


dent input 




X J 50' - 


READ42 (1442 Card 


X'02' = Device indepen- 






Read-Punch) 


dent output 




X'5F' - 


Special 


X'18' = CRT77 




X'60' = 


Tape 


X'40* * DISKET 




X'80' = 


BSCA 


X'50' = READ42 




xw - 


BSCA (first time logic) 


X'58' = READ01 




X'AO' = 


DISK (5444 simulation 


X'5F' = SPECIAL IOS 






area) 


routine 




X*C0' = 


DISK40orDISK45 


X'60' = TAPE 






(3340 main data area) 


X'80' - BSCA 




X'EO' = 


PRINTER- carriage 1 


X'AO' = DISK44 




X J E8' = 


PRINTR2-carriagB2 


X'CO' * DISK45\DISK40 




X'FO' = 


MFCU1 - primary hopper 


X'EO' - PRINTER 




X'F8' = 


MFCU2 - secondary 


X'E4' = PRINT84 






hopper 


X'FO' - MFCU1 




X'FF' = 


Invalid entry 


X'FO' - MFCU1 
X'F2' = MFCM1 
X'F4' = MFCM2 
X'F8' = MFCU2 
X'FF' = Invalid entry 




Byte 4 Bits 0-3 




Bits 4-5 




0001 = 


Primary file 


00 = No specified sequence 




0010 = 


Secondary file 


01 = Descending sequence 




1000 = 


Chained file 


10 = Ascending sequence 




1001 - 


Demand file 


Bit 6 




1010 ■= 


Record address file 


1 = End of file 

Bit 7 

1 = File translate 
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(tarn Byte Defined/ 

Number Length Modified Description 



145 4 



146 3 



$RPLN 



$RPMH 



$RPLR 



$RPMP 



$RPQD/ 
$RPQG/ 
$RPQH 
$RPQE 

$RPEK 



$RPEK 



$RPGW/ 
$RPGY* 



$RPGI 



Byte 5 Bits 0-1 


Bits 4-6 




00 = Sequential file 


001 


= 


Display file 


01 = Indexed file 


011 


- 


Update file 


10 = Direct file 


100 


= 


Combined file 


11 = ADDROUTfile 


101 


= 


Regular output 


Bits 2-3 

00 ■ Consecutive processing 

01 ■ Random processing 


110 
111 


so 


file 

Input file 
Unordered sequence 


10 = Indexed file processed 


Bit 7 






sequentially by key 


1 = Addition specified 



11 =• Indexed file processed 
sequentially within 
limits 

For a literal, the following are set: 
Byte 0. See note 3 
Byte 1 . See note 4 

Bytes 2-3 are modified if specified conditions exist: 

1 . Address of the leftmost byte of the element or field if MHHZO or MHLZO operation code specified. 

2. Address of the rightmost byte of the part of the element or field to be moved if MOV EL operation 
code specified or If the length of Factor 2 is greater than the length of the Result Field. 

For a literal, the following are set: 

Bytes 2*3. Address of rightmost byte of literal 

Bytes 4-5. These bytes are not used 

If BEGSR and EXSR are specified: 



Bytes 0-1 
Bytes 2-3 
Bytes 4-5 



Start address of subroutine 
Length of subroutine 
Subroutine identifier 



Bytes 2-3. Object code address of where element address is to be placed (for array table or array with 
variable index) 



Item acts as a 4-byte extension to item 144 when an alphameric or numeric literal is defined in 
Factor 2. 

Item acts as a 3-byte extension to item 144 when an array with constant index is specified in Factor 2 
or when filename is given. 



For an array with a constant index, the following are set: 
Bytes 0-1 . Numeric value of the array index 
Byte 2. X'00' 

If filename is specified in Factor 2, the following are set: 

Byte 0, Bit = Variable format 
1 = Fixed format 
Bit 1 - Unblocked file format 

1 - Blocked file format 
Bits 2-3 01 - Extension or line counter 
specifications 
10= External indicators 



Byte 1 Overflow mask 

Byte 2 First byte of record length, 

second byte in item number 

147 
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Item Byte 

Number Length 



Defined/ 
Modified 



Description 



147 



Bits 4-6 000 = Indexed file 

processed consecutively 

010 = Indexed key (alphameric) 

011 = Indexed key (packed) 
100 = Record identification 

(disk address! 
110 = Record number 
Bit 7 1 = Dual I/O 



$RPRW If filename is specified, the following is set: 

Byte 2. First byte of the address of the entry point to subsegment, if CHAIN or READ operation 
code is specified. Second byte is contiguous in item number 147 for filename. 

$RPEK This item acts as a 6-byte extension to item 144 when factor 2 contains an array with variable index 

or a filename (which combines with item 146 to form a 9-byte extension). 

$RPHC For an array with a variable index, the following are set: 

Byte 0. See note 3 
Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of the Tag field 
Bytes 4-5. X'0000' 

$RPGI When filename is specified in Factor 2, this item is modified as follows: 

Byte 0. Second byte of record length (first byte given contiguously in item 146). 
Bytes 1-2. IOCB address 
Byte 3. Not used 
Byte 4. Key length 

$RPPJ Bytes 4-5. Address of OPCR routine if DSPLY, DEBUG, SET, or KEY operation code is specified; 

address of IPCR routine if READ or CHAIN operation code is specified. 

$RPRW If filename is specified, the following is set: 

Byte 0. Second byte of the address of the entry point to the subsegment of object code, if CHAIN 
or READ operation code is specified. First byte was specified in item 146. 
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Item 
Number 


Byte 
Length 


Defined/ 
Modified 


Description 


148 


6 


$RPEK 


Result Field (contents of col 43-48) 






$RPGW/ 
$RPGY* # 


If an array, the following are set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of first element for an array or an array with a variable index, 

or, address of rightmost byte of indexed element for an array with constant index 

Bytes 4-5. DTT address 






$RPHC 


If a field name, the following are set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of field 

Bytes 4-5. X'0000* 






$RPMH 


Bytes 2-3. These bytes are modified as follows, under the specified conditions: 

1 . Address of the leftmost byte of the element or field if MHHZO or MLHZO operation code 
specified. 

2. Address of the rightmost byte of the part of the element or field to be moved if MOVEL operation 
code specified or if the length of Factor 2 is Jess than the length of the Result Field. 






$RPQD/ 
$RPQG/ 
$RPQH 


Bytes 2-3. Object code address where element address is to be placed (for array table or array with 
variable index) 


149 


2 


$RPEK 


This item acts as a 2 -byte extension to item 148, when an array with constant index is defined in 
the Result Field. 






$RPGW/ 
$RPGY** 


For an array with a constant Index, the following are set: 
Bytes 0-1 . Numeric value of the array index 


150 


4 


$RPEK 


This item acts as a 4-byte extension to item 148, when an array with variable index is defined in the 
Result Field. 






$RPHC 


For an array with a variable index, the following are set: 

Byte 0. See note 3 

Byte 1 . See note 4 

Bytes 2-3. Address of rightmost byte of the field 

Bytes 4-5. X'OOOO* 


151 


2 


$RPEK 


Field length in binary (col 49-51) 


152 


2 


$RPEK 


Plus indicator {col 54-55) 






$RPGF 


Mask and displacement 


153 


2 


SRPEK 


Minus indicator (col 56-57) 






$RPGF 


Mask and displacement 


154 


2 


SRPEK 


Zero or blank indicator (col 58-59) 






$RPGF 


Mask and displacement 
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h|Qte 1 : 






Note 3: 


The indicators are reordered so that indicator strings that 


began 


1. Alphameric length «= Length minus one 


in this compression are placed back into the compression 


with 


2. Numeric length = length minus one in the numeric portion; 


the longest first, in decreasing order by length. The start of an 


number of decimal positions in the zone portion 


indicator string i 


s flagged by setting Bit equal to zero in the 




displacement for the indicator. In the next compression 


the 


Note 4: 


length of the string minus the length of the group in which it 




started is placed 


in the same relative position as in this com- 


Bit 1 = Look-ahead field 


press Ion. In all subsequent compressions through which the 


Bits 2-3 00 = Field name 


string continues. 


the indicator is replaced by X'0000', a no- 


01 = Array name 


test indicator. 






1 = Table name 


Note 2: 






Bits 4-5 00 ~ Table sequence not specified 






01 = Table is descending or field name is 


ByteO 


X'OCT = ENDSR 




UDATE related field 




X'01' = EXCPT 




10 * Table is ascending or, if RLABL 




X'OE'-SETON 




specified, field name or mask and 




X'0F' = SETOF 




displacement or indicator 




X'20'=RLABL 




Bit 6 s Length is alphameric (see Note 10) 




X'23' = MVR 




1 = Length is numeric 




X'2E' = TESTZ 




Bit 7 1 = Shorter array 




X'40' = EXIT 




During phase $RPHC, 1 - Field 




X'41'-GOTO 




is used 




X'42' = EXSR 








X'50'= DEBUG 




* Indicates an addition or change to a previously defined area. 




X'5V=DSPLY 




** Either phase $RPGW or $RPGY is loaded depending on 




X'52' = FORCE 




whether an object-time table or a compile-time table has 




X'53'=READ 




been loaded. 




X*60' - Z-ADD 








X'6V = Z-SUB 








X J 62' = SORT 








X'63'= XFOOT 








X'64' = MHHZO 








X J 65' = MHLZO 








X J 66'= MLHZO 








X'67' = MLLZO 








X'68' = MOVE 








X'69' - MOVEL 








X'6A' = MOVEA 








X'6C = BITON 








X'6D'=BITOF 








X'6E' = TESTB 








X'71'=KEY ) 








X'72' = SET j Model 6 only 








X'80' = BEGSR 








X'SV-TAG 








X'B4' = TIME (Model 15 only) 








X'CE' = COMP 








X'CF' - LOKUP 








X'DO' = CHAIN 








X'D3' = SETLL 








X'ECT = ADD 








X'ET = SUB 








X'E2'=MULT 




- 




X'E3'=DIV 








X'FF' = Invalid entry 






Byte 1 , Bit 


1 = Field light 1 \ 






(for Bit 1 


1 = Field light 2 J 






KEY or Bit 2 


1 = Field light 3 / 






SET Bit 3 
operation Bit 4 


1 = Field tight 4 .. 

, c-.j.'i-^c \ Model 6 only 

1 ■ Field light 5 / J 






codes) Bit 5 


1 - Field light 6 I 






Bit 6 


1 - Field light 7 1 






Bit 7 


1 = Field light 8 ) 







Figure 3-6. Calculation Compressions (Part 10 of 10) 



Data Areas 3-43 



licensed Material-Property of IBM 



PageofLY21-0501-5 
Issued 24 September 1976 
ByTNL: LN21-5423 



Item 
Number 


Byte Defined/ 
Length Modified 


Description 




128 


1 SRPEO 


Compression length 


i in binary 


129 
130 


1 $RPE0 
1 


Indicates presence of an item In the compression. 

Item 129 Bit 1 = Item number 132 Item 130 BItO 1 = Item number 140 
Bit 1 1 = Item number 133 Bit 1 1 = Item number 141 
Bit 2 1 - Item number 134 Bit 2 1 - Item number 142 
Bit 3 1 = Item number, 135 Bits 3-5 100 = Item number 143 
Bit 4 1 = Item number 136 1 10 = Item number 144 
Bit 5 1 = Item number 137 (2-byte extension) 
Bit 6 1 = Item number 138 101 = Item number 145 
Bit 7 1 = Item number 139 (4-byte extension) 

Bit 6 1 = Item number 146 
Bit 7 1 - Item number 147 


131 


1 


Item 131 Bit 1 = Item number 148 
Bit 1 1 * Item number 149 
Bits 2-7 Not used 


132 


4 $RPE0 


Byte 0, Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 


1 = Invalid compression 
1 = Invalid Filename (col 7-14) 
1 - Invalid Field Name (col 32-37J 
1 = Invalid constant (col 45-70) 
1 = Field specification 




$RPGV 


•Bytes 2-3. Number of elements in the table/array 




$RPGW/ 
$RPGY* # 


•Bytel, Bit 4 
•Bit 5 
•Bit 7 


1 - Field name resolved 

1 = Index resolved 

1 = Symbol in table (set by phase $RPHA) 




$RPHC 


•Bytel, Bit 4 

•Bit 5 
•Bit 7 


1 = Field name resolved 

1 ~ Index resolved 

1 - Symbol in table (set by phase $RPHA) 




•$RPJO 


•Bytel, BitO 


1 = 4th tier print for full array greater than 96 (MFCU) 




$RPJ0 


Bytel, Bits 0-3 


High Print head used (MFCM) 




$RPLB 


•Byte 0, *Bit 1 
•Bit 2 
•Bit 3 
•Bit4 
•Bit 5 
•Bit 6 
•Bit 7 


1 = Fourth tier print needed 

1 - Add file (first field line only) 

1 = "PRINT follows (first field line only 

1 - First field line 

1 - Subsegment fields code 

1 = Last field line 

1 = Last record line 




$RPLG 


Byte 0, Bit 1 is set to 0. 




$RPLR 


•Byte 0, Bits 0-3 = 


Length minus one of the parameters to be moved to the DTF 




$RPLV 


•Byte 0, X'80' = Output Field Move can be combined with the next output field move 




$RPMA 


•Byte 0. X'80' = Output Field Move can be combined with the next output field move 
•Byte 1 . Length of object code 




$RPMM 


•Bytes 2-3. Address of object code block to be generated for this compression 




$RPPO 


•Byte 0, Bit 6 is set to 

•Bytes 2-3. Address of object code block for MFCU punch and print 
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Item 


Byte Defined/ 






Number 


Length Modified 


Description 


133 


1 $RPEO 


Bits 0-1 


00 = Blank or invalid type (col 1 5) 

01 = Heading or detail records 

1 = Total records 

1 1 = Records to be written during calculation time (E in col 15) 






Bit 2 


1 «ADD (col 16-18) 






Bit 3 


1 =AND (col 14-16) 






Bit 4 


1 =OR (col 14-15) 






Bits 5-7 


000- No entry in col 16 
001 = Eject (Model 6 only) 

010 - Fetch overflow 

01 1 - Stacker 5 {Model 15 only) 

1 00 = Stacker 4 (Model 1 or 1 2) 

101 - Stacker 1 (Model 10 or 12) 
110 » Stacker 2 (Model 10 or 12) 
111= Stacker 3 {Model 10 or 12) 




$RPMA 


Bit 6 


1 = For ledger card (Model 6 only) 


134 


1 $RPEO 


Bit 5 


1 = Not (col 23) 






Bit 6 


1 = Not (col 26) 






Bit 7 


1 = Not (col 19) 




$RPGW/ 


•Bit 1 


= Object-time table name 




$RPGY** 




1 = Compile-time table name 




$RPLB 


*BitO 


1 = No field lines follow 






♦Bits 1-2 


01 = IP indicator 
10= LR indicator 
1 1 = Overflow indicator 






•Bit 3 


1 = First record for output type 






•Bit 4 


1 - Last record or field for output record type 


135 


1 $RPEO 


BitO 


1 - PAGE, PAGE1, or PAGE2 (col 32-37) 






Bit 1 


1 = Blank After (col 39) 






Bits 2-3 


00 - Unpacked or alphameric (col 441 

01 = Packed 
10 = Binary 






Bit 4 


1 - *PLACE (col 32-37) 






Bit5 


1 - Ledger card control identification (N in col 40) 






Bit 6 


1 « 'PRINT (col 32-37) Model 10 or 12 






Bit 7 


1 - MFCU print (* col 40) Model 10 or 12 




$RPGB 


Bit 7 


1 = MFCM print (Model 15 only) 




$RPJO 


High prim position on record (MFCM record specifications only). 




$RPLR 


Parameter address if more than one byte of Data Management parameters 




$RPLG 


X'OO' - no 


parameter required 






X'01 ' = parameter required 


136 


2 $RPEO 


Space before/after (col 17-18) 






Bits 0-3 


X'O' — X'9' - Space before entry 
X'F' = No entry 






Bits 4-7 


X'O' — X'9' = Space after entry 
X'F' = No entry 




$RPJO 


Length of edited output (field specification only); high end position on 
record for VLR on tape (record specification only. Item 135 and byte 
of item 136 used); high punch position on record (MFCM record 






specif icati 


ons only). 




$RPLR 


Parameter address (item number 135 and Byte of item number 136) 




$RPLV 


X'OO' = no 


parameter required 






X'OV = parameter required 


137 


1 $RPEO 


Skip before in binary (col 19-20) (optional) 
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Item Byte Defined/ 












Number Length Modified 


Description 










138 1 $RP£0 


Skip after in binary (col 20-21) (optional) 






139 15 $RPEO 


Filename (col 7-14) (optional) 








$RPGI 


Byte 0, Bft 

Bits 3-7 

Bytes 1-2 


1 - MFCU print 
Sequence number 

DTF address 










Byte 3 Model 6 






Model 10 




X'10' = 


CONSOLE (printer- 
keyboard) 




X'10' - 


CONSOLE (printer- 
keyboard) 




X'12' - 


KEYBORD 




X'4ff = 


DISKET 






(keyboard) 




x'5rr * 


READ42 (1442 Card 




X'40* = 


DISKET 






Read-Punch) 




X'5F' = 


Special IOS routine 




X'5F' - 


Special IOS routine 




X'80' =* 


BSCA 




x'eo' = 


TAPE 




X'84' = 


BSCA (BSCA with 




X'80' = 


BSCA 






first-time logic) 




X'84' « 


BSCA with first- 




X"90' = 


CRT (display station) 






time logic 




X'AO' - 


DISK (disk unit) 




X'AO' = 


DISK (disk unit) 




X'EV = 


TRACTR1 (tractor 1) 




X'CO' = 


DISK45 




X'E2' = 


TRACTR2 (tractor 2) 




X'EO' = 


PRINTER (line print- 




X'E9' = 


LEDGER (ledger card 






er — carriage 1 ) 






device) 




X'E8' = 


PRINTR2 (line print- 




X'FI' = 


DATA96 (data 






er — carriage 2) 






recorder) 




X'FO' = 


MFCU1 (MFCU pri- 




X'FF' = 


Invalid entry 




X'F8' = 
X'FF' = 


mary hopper) 

MFCU2 (MFCU 

secondary hopper) | 

Invalid entry 




Model 12 






Model 15 






X'10' *= 


Console 




X'01 - 


Device Indepen- 




X'40 1 = 


DISKET 






dent Input 




X'60' = 


READ42 (1442 Card 
Read-Punch) 




X'02' » 


Device Indepen- 
dent Output 




X'5F' = 


Special 




X'18' = 


CRT77 




X'60' = 


Tape 




X*40' = 


DISKET 




X'80' * 


BSCA 




X'50' = 


READ42 




X'84' * 


BSCA (first time logic) 




X'58 f - 


READ01 




X'AO' = 


DISK (5444 simulation 
area) 




X'5F' = 


SPECIAL IOS 

routine 




X'CO' - 


DISK40 or DISK45 




X'60' = 


TAPE 






(3340 main data area) 




X'80' = 


BSCA 




X'EO' = 


PRINTER- carriage 1 




X'AO* = 


DISK44 




X'E8' = 


PRINTR2- carriage 2 




X'CO' = 


DISK45, DJSK40 




X'FO' = 


MFCU1 — primary hopper 


X'EO' = 


PRINTER 




X*F8' = 


MFCU2 — secondary 




X'E4' = 


PRINT84 






hopper 




X'FO' * 


MFCU1 




X'FF' = 


Invalid entry 




X'F2' = 

X'F4' - 
X'F8' = 
X'FF' = 


MFCM1 
MFCM2 
MFCU2 
Invalid entry 




Byte 4 Bite 0-3 




Bits 4-5 


Bit 7 




0001 - Primary file 


00 


= No specified sequence 1 = File translate 




0010 - Secondary file 


01 


«= Descending sequence 




1000 = Chained file 


10 


= Ascending sequence 




1001 - Demand file 


Bit £ 






1010 = Record Address file 


1 = 


End of file 
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Item 


Byte 


Defined/ 








Number 


Length 


Modified 


Description 










Byte 5 


Bits 0-1 

00 - Sequential file 

01 = Indexed file 
10= Direct file 

11 = ADDROUTfile 

Bits 2-3 

00 = Consecutive processing 

01 - Random processing 

10 - Indexed file processed 

sequentially by key 

11 - Indexed file processed 

sequentially within 
limits 


Bits 4-6 

001 = Display file 

011 = Update file 

100 ■* Combined file 

101 = Regular output file 
110 = Input file 

111= Unordered sequence 

Bit 7 

1 = Addition specified 








Byte 6 


BitO 

= Variable format 

1 = Fixed format 


Bits 4-6 

000 - Indexed file pro- 
cessed consecutively 



010 ** Indexed key 
(alphameric! 

011 = Indexed key (packed) 
100 = Record identification 

(disk address! 
110 = Record number 

Bit 7 

1 = Dual I/O 



140 



141 



142 



Bit 1 

- Unblocked file format 

1 = Blocked file format 

Bits 2-3 

01 = Extension or line 

counter specifications 
10 = External indicators 

Byte 7 Overflow mask 

Bytes 8-9 Record length 
Bytes 10-1 1 IOCB address 

$RPPj Bytes 12-13. Address of OPCR routine 

$RPEO Output indicator (col 24-25) (optional) 

$RPGF Mask and displacement 

$RPLB For output record lines, 1P indicators are zeroed out for heading and detail output, or LR indicators 
are zeroed on LR output. Overflow indicators are always zeroed out. 

$RPEO Output indicator (col 27-28) (optional) 

$RPG F Mask and displacement 

$RPLB For output record lines, 1P indicators are zeroed out for heading and detail output; LR indicators 
are zeroed out for LR output. Overflow indicators are always zeroed out, 

$RPEO Output indicator (col 30-31) (optional) 

$RPGF Mask and displacement 

$RPLB For output record lines, 1P indicators are zeroed out for heading and detail output; LR indicators 
are zeroed out for LR output. Overflow indicators are always zeroed out. 



Note: Items 143, 144, and 145 are related as follows: 
143-field name (6 bytes) 
143-array name 1 6* bytes) 
143 and 144-array with constant index 
143 and 145-array with variable index 



Figure 3-7, Output-format Compressions (Part 4 of 6) 
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Item 


Byte 


Defined/ 


"" 


Numbei 


Length 


Modified 


Description 


143 


6 


$RPEO 


Fieldname (col 32-371 < optional) 






$RPGW/ 


If an array name, the following is set: 






$RPGY** 


Byte 0=1. Alphameric length - length minus one 

2. Numeric length = length minus one in the numeric portion; number of decimal 
positions in the zone portion 
Byte 1 . See note 1 
Bytes 2-3. Address of rightmost byte of last element for an array or an array with a variable Index, or 

address of rightmost byte of indexed element for an array with a constant index. 
Bytes 4-5. DTT address 






$RPHC 


If a field name, the following is set: 

Byte 0. 1. Alphameric length = length minus one 

2. Numeric length = length minus one in the numeric portion; number of decimal 
positions in the zone portion 
Byte 1. See note 1 

Bytes 2-3. Address of rightmost byte of field 
Bytes 4-5. X'0000' 






$RPJO 


* Bytes 2-3. For arrays, address of rightmost byte of first element 






$RPLV 


* Bytes 0-1. Cumulative length of combined output fields move 
*Byte 2, bit 6 is set to zero 


144 


2 


$RPGW/ 


For an array with a constant index, the following is set: 






$RPGY** 


Bytes 0-1 . Numeric value of the array index 


145 


4 


$RPHC 


For an array with a variable index, the following is set: 
Byte 0. 1. Alphameric length = length minus one 

2. Numeric length = length minus one in the numeric portion; number of decimal 
positions in the zone portion 
Byte 1. See note 1 
Bytes 2-3. Address of rightmost byte of field 


146 


1 


$RPEO 


Edit codes (col 38) (optional) 






$RPHT 


Bit = Edit pattern 2 (no thousands demarcation) 
1 = Edit pattern 1 (thousands demarcation! 

Bit 1 1 = Date field 

Bit 2 = Print zeros 

1 = Print blanks for zero balance 

Bit 3 1 = CR for negative balance 

Bit 4 1 = Minus sign for negative balance 

Bit 5 1 = Asterisk fill 

Bit 6 1 = Floating dollar sign 

Bit 7 1 = Edit code Z (col 38) 


147 


2 


$RPEO 


End position in binary of the output record (col 40-43); 
End position in 'Tier/End Position Notation" for print 
only on MFCM files. 






$RPGB 


Converted end position for Print Only on MFCM files. 






$RPJO* 


End position minus 1 of the output record 


148 


2 




Reserved 


149 


7-25 


$RPEO 


Byte = length of constant or edit word without quotas 




(Variable 




Bytes 1-24 = Constant or edit word (col 45-70) 




length 








item] 







Figure 3-7. Output-format Compressions (Pait 5 of 6) 
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Item Byte 
Number Length 


Defined/ 
Modified 


Description 




$RPLN 


Byte = Length minus one 
Bytes 1-24. If edit word: 






Byte 3 


X'01 ' = CR for negative balance 
X'10' ~ Zero suppression 
X'20' = Floating dollar sign 
X'40' - Fixed dollar sign 
X*80 J = Asterisk fill 






Byte 4 


Zero suppression or asterisk fill length minus one 






Byte 5 


Length minus one of start of edit word to end of status 






Byte 6 


Length minus one of start of edit word to start of status 




$RPLR 


Bytes 0-1 ~ 


Address of constant or edit word 




$RPLV 


Byte = cumulative length of combined Output Fields moves if a constant is present 
Bytes 1-24 = If constant, address is adjusted by the length added to it 



| Notel jltems 143, 145) 



BitO 


1 = Look-ahead field 


Bits 2-3 


00= Fieldname 




01 = Array name 




10= Table name 


Bits 4-5 


00 = Table sequence not specified 




01 = Table is descending or field name is 




UDATE related field 




10 = Table is ascending or, if RLABL 




specified field name or mask and 




displacement of indicator 



Bit 6 



= Length if alphameric 

1 = Length is numeric 



* Indicates an addition or change to a previously defined area. 
** Either phase $RPGW or $RPGY is loaded depending on 
whether an object-time table or a compile-time table has 
been loaded, 



Figure 3-7. Output-format Compressions (Part 6 of 6) 
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Item 


Byte 


Defined/ 






Number 


Length 


Modified 


Description 




128 


1 


$RPEE 


Compression length in 


binary 


129 


1 


$RPEE 


Indicates presence of item in compression when bits are on (Bit=1 ) 








Item 129 BitO 


1 - Item number 132 








Bit 1 


1 = Item number 133 








Bit 2 


1 = Item number 134 








Bit 3 


1 = Item number 135 








Bit 4 


1 =■ Item number 136 








Bit 5 


1 = Item number 137 








Bit 6 


1 = Item number 138 








Bit 7 


1 = Item number 139 


130 


1 




Item 130 Bits 0-3 
Bits 4-7 


1000 = Item number 140 
1100 - Item number 140 

and 141 H-byte 
extension) 
1010 = Item number 140 
and142(2-byte 
extension) 

1001 = Item number 140 

and 143 [6-byte 

extension) 
1000 = Item number 144 
1100 = Item number 144 

and 145 (1-byte 

extension) 
1010 - Item number 144 

and 146(2-byte 










extension} 
1001 = Item number 144 and 147 


131 


1 




Item 131 Bits 0-3 

Bit 4 
Bit6 
Bit 6 


1000 = Item number 148 
1100= Item number 148 

and 149 (1-byte 
extension) 
101 - Item number 148 
and 1 50 (2-byte 
extension) 

1001 - Item number 148 

and 151 {6-byte 

extension) 
1 = Item number 152 
1 = Item number 153 
1 - Item number 154 








Bit 7 


1 = Item number 155 



Figure 3-8* Telecommunications Compressions (Part 1 of 5) 
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Item 


Byte 


Defined/ 






Number 


Length 


Modified 


Description 




132 


2 


$RPEE 


Byte 0, Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 


1 = Invalid specification 

1 = This station ID invalid 

1 = Remote station ID invalid 

1 = Dial Number invalid 

1 = Filename missing or invalid 

1 = Polling characters invalid 

1 = Addressing characters invalid 


133 


1 


$RPEE 


Byte 0, Bits 0-1 
Bits 2-3 
Bits 4-5 
Bits 6-7 


00 = Transmitter (col 16| 

01 = Receiver 
10= Not appl icable 
11 = Error 

00= Blank (col 17) 
01 = Tributary 
10= Not appl icable 
11 * Error 

00 s N/Blank(col 19) 

01 = Yes, transparent feature 
10= Not applicable 

11 = Error 
00= Blank (col 60) 
01 - Last file processed 
10= Not applicable 
11 = Error 



Figure 3-8. Telecommunications Compressions (Pait 2 of 5) 
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Item 


Byte 


Defined/ 




Number 


Length 


Modified 


Description 


134 


1 


SRPEE 


Byte 0, Bits 0-4 Unused 

Bits 5-7 000 - Explicit or symbolic entry for autocall (col 201 
001 = Autoanswer specified 
010 = Manual answer 
100= Manual call 
101 = Blank 
111= Error 


135 


1 


$RPEE 


Byte 0, Bits 0-1 00 = Point to point nonswitched or blank {col 15) 
01 * Switched 

10 = Multipoint for nonswitched 

1 1 = Error 

Bit 2 * EBCDIC, blank or error (col 18) 

1 = ASCI 1 
Bit 3 0= Blank (col 52) 

1 = Interblock check characters (ITB) or error 


136 


2 


$RPEE 


Wait time in binary (col 55-57) 


137 


13 


$RPEE 


Filename (col 7-14) 


136 


2 


$RPEE 


Transmission terminator indicator (col 53-54) 


139 


2 


$RPEE 


Record available indicator (col 58-59) 


140 


6 


$RPEE 


This stations ID (col 33-39) 






$RPGW/ 


If an array name, the following is set: 






$RPGY»* 


Byte 0. See note 1 

Byte 1 . See note 2 

Bytes 2-3. Address of rightmost byte of first element or indexed element 

Bytes 4-5. DTT address 






$RPHC 


If a field name, the following is set: 

Byte 0. See note 1 

Byte 1. See note 2 

Bytes 2-3. Address of rightmost byte of field 

Bytes 4-5. X'0000' 






$RPLN 


If a literal, the following is set: 
Byte 0. See note 1 
Byte 1. See note 2 






$RPLR 


Bytes 2-3. Address of rightmost byte of literal 
Bytes 4-5. These bytes are not used 


141 


1 


SRPEE 


This station ID (col 39) 


142 


2 


$RPGW/ 
$RPGY*» 


If an array with a constant index, numeric value of the index is set 


143 


6 


$RPHC 


For an array with a variable index, the following is set: 

Byte 0. See note 1 

Byte 1 . See note 2 

Bytes 2-3. Address of rightmost byte of index 

Bytes 4-5. X'0000' 



Figure 3-8. Telecommunications Compressions (Part 2 of 4) 
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Item Byte Defined/ 

Number Length Modified Description 



144 



145 
146 
147 



148 



149 
150 

151 



11 



$RPEE Remote station ID (col 41-47) 

$RPGW/ If an array name, the following Is set: 
$RPGY** ByteO. See note 1 

Byte 1. See note 2 

Bytes 2-3, Address of rightmost byte of first element or indexed element 

Bytes 4-5. DTT address 

$RPHC If a field name, the following is set: 
Byte 0. See note 1 
Byte 1. See note 2 

Bytes 2-3. Add/ess of rightmost byte of field 
Bytes 4-5. X'0000* 

$RPLN If a literal, the following is set: 
Byte 0. See note 1 
Byte 1. See note 2 

$RPLR Bytes 2-3. Address of rightmost byte of literal 
Bytes 4-5. These bytes are not used 

$RPEE Remote station ID (col 47) 



$RPGW/ 
$RPGY*< 

$RPHC 



If an array with a constant index, numeric value of the index is set 

For an array with a variable index, the following is set: 

Byte 0. See note 1 

Byte 1. See note 2 

Bytes 2-3. Address of rightmost byte of index 

Bytes 4-5. X'0000" 



$RPEE Dial number (col 21-31) 



$RPGVW 
$RPGV 



$RPHC 



$RPLN 

$RPLR 

$RPEE 

$RPGVW 
$RPGY*< 

$RPHC 



If an array name, the following is set: 

Byte 0. See note 1 

Byte 1 . See note 2 

Bytes 2-3. Address of rightmost byte of first element or indexed element 

Bytes 4-5. DTT address 

If a field name, the following is set: 

Byte 0. See note 1 

Byte 1. See note 2 

Bytes 2-3. Address of rightmost byte of field 

Bytes 4-5. X'0000' 

If a literal, the following is set: 
Byte 0. See note 1 
Byte 1. See note 1 

Bytes 2-3. Address of rightmost byte of literal 
Bytes 4-5. These bytes are not used 

Dial number (extension 1) 

If an array with a constant index, numeric value of the index is set 



For an array with a variable index, the following is set: 

Byte 0. See note 1 

Byte 1 . See note 2 

Bytes 2-3. Address of rightmost byte of index 

Bytes 4-5. X'0000' 



Figure 3-8. Telecommunications Compressions (Part 3 of 4) 
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Item 


By le Defined/ 






Number 


Length Modified 


Deac 


xlption 


152 


1 $RPEE 


Polling characters 


153 


1 $RPEE 


Addressing characters 


154 


4 $RPEE 


Remote terminal (col 48-51) 






2770 = 


2770 channel 1 






2771 «= 


2770 channel 1 






2772 = 


2770 channel 2 






2773 = 


2770 channel 3 






2774 = 


2770 channel 4 






2780 = 


2780 




$RPEW 










ByteO 


Compressed Terminal value 
X'40' = 2770 channel 4 
X'50' = 2770 channel 1 
X'60' = 2770 channel 2 
X'70' = 2770 channel 3 
X'80' = 2780 






Bytel 


Compressed Device value 

2770 

X'11'» 2213-1 

X' 12' = 2213-2 

X'13' = 545-3 

X'14' = 545-4 

X'15'«= 2502-1 

X'16' = 2502-2 

X J 17' = 5496-1 

X'18' = 5496-2 

2780 

X'01' = 1442-1 
X'02' = 1 442-2 
X'03' = 1443 






Byte 2 


Device Type 
X'01' - reader 
X'02' = punch 
X'03' = printer 






Byte 3 


Device Code 


165 


6 $RPEE 


Remote Device 






1443 


= IBM 1443 Printer 






1442-1 


= IBM 1442 Card Read/Punch (card read) 






1442-2 


= IBM 1442 Card Rsad/Punch (card punch) 






2213-1 


= IBM 2213 Printer, Model 1 






2213-2 


= IBM 2213 Printer, Model 2 






0545-3 


= IBM 0545 Card Punch, Mode! 3 






054&4 


= IBM 0545 Card Punch, Model 4 






2502-1 


= IBM 2502 Card Reader, Model 1 






2502-2 


= I BM 2502 Card Reader, Model 2 






5496-1 


= IBM 5496 Data Recorder (card read) 






5496-2 


= IBM 5496 Data Recorder (card punch) 



* Indicates an addition or change to a previously defined area. 
Notel (Items 140, 143, 144, 147, 148, 151): 

1. Alphameric length = Length minus one 

2. Numeric length = length minus one in the numeric portion; 
number of decimal positions in the zone portion 

Figure 3-8. Telecommunications Compressions (Part 5 of 5) 



Note 2 (Items 140, 143, 144, 147, 148, 151): 



BitO 


1 = Look-ahead field 


Bits 2-3 


00 = Field name 




01 - Array name 




1 - Table name 


Bits 4-5 


00 - Table sequence not specified 




01 = Table is descending or, if RLABL 




specified, field name or mask and 




displacement of indicator 


Bit 6 


- Length is alphameric (see Note 1 ) 




1 - Length is numeric 
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ALTERNATE COLLATING SEQUENCE, FILE 
TRANSLATE, AND COMPILE-TIME TABLE/ARRAY 
COMPRESSIONS 

At compile time, these three tables are compressed by 
phase $RPFA into two compression types. The alternate 
collating sequence and file translate tables form one 
compression and the compile-time tables/arrays form another 
compression. The first byte of each 97-byte compression 
contains the length of the compression; the remaining 
bytes contain the record specified. The compression 
block table (CZATAB) tells the type of compression 
and its address. 



CHAIN TABLE 

This table is built by phases $RPPN and SRPRW and 
used by phase SRPMP. The table begins with a 
2-byte field which contains the number of entries in 
the table and ends with a 4-byte dummy entry to 
show the last byte of the subsegment. Each entry in 
the table is four bytes long: 



Byte Contents 

File sequence number 

1 -2 Start address of the subsegment 

3 X'08* = Set Resulting Indicators 

subroutine 
X*10' = TAG subroutine 
X'20' = Convert to Decimal 

subroutine 
X*80* = Unpack subroutine 



COMPILE-TIME SYMBOL TABLE 

The 17-byte compile-time symbol table is built by 
phase SRPGY for each compile-time table/array: 



12 



Byte 


Bit 


Contents 


0-5 




Table/array name 


6-7 




Number of elements in the 
table/array 


8-9 




Number of elements per input 
record 


10-11 




Element length 



13-14 



15-16 



1 = Look-ahead field 

2-3 00 = Field name 

01 = Array name 
10 = Table name 
4-5 00 = Table sequence not 

specified 
01 = Table is descending or field 
name UD ATE related field 
10 = Table is ascending or, if 
RLABL is specified, field 
name or mask and displace- 
ment of the indicator 
6 = Length is alphameric 

1 = Length is numeric 

First element address (rightmost 
byte) 

DTT address 



DATA MANAGEMENT ENTRY POINTS AND 
MODULE NAMES COMPRESSIONS 

Phase $RPFA builds compressions of data manage- 
ment entry points and module names. These com- 
pressions are used by later phases to generate 
branches to data management. The first byte of each 
compression is the length of the compression. This is 
followed by a series of 2-byte internal entry points and 
2-byte translated module names. The last two bytes of 
each compression contains X'EEEE'. 

The 2-byte entry point contains the following: 



Byte 

(Bits 0-3) 



(Bits 4-7) 



Contents 

1000= Sequential file 

processed consecutively 
1001 = Indexed file processed 

randomly by key 

1010 = Direct (disk address) file 

1011 = Direct (record number) file 
1100= Indexed file processed 

sequentially by key 
1 101 = Indexed file processed 

sequentially within limits 

0001 = Input file 

0010 = Output file 

001 1 = Update/combined file 

0100 = Add/print file 

0101 = Input + add file 
01 10 = Output + add file 
0111= Update/combined + add 

file 
1000 = Output unordered file 
1010 = Output chain file 
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1 (Model 6) X'l 8' = CONSOLE (printer- 

keyboard) 
X*14' = KEYBOARD 
(keyboard) 

X'40' = DISKET 
X'80' = BSCA 

X'84' = BSCA (BSCA with first- 
time logic) 
X'94' = CRT (display station) 
X'A0' = DISK (disk unit) 
X'Al' = Multivolume Disk 
X'E4' = TRACTR1 (tractor 1) 
X'E4 9 = TRACTR2 (tractor 2) 
X'E8' = LEDGER (ledger card 

device) 
X'F4' = DATA96 (data 

recorder) 
X'FF' = [nvalid entry 

CONSOLE (printer- 
keyboard) 
= DISKET 
■ READ42 (1442) 
TAPE 
BSCA 

BSCA with first-time 
logic 

= DISK (5444) 
■■ Multivolume DISK (5444) 
DISK45 

Multivolume DISK45 
PRINTER (line printer- 
carriage 1) 

PRINTR2 (line printer- 
carriage 2) 
MFCU1 (primary 
hopper) 

MFCU2 (secondary 
hopper) 

2 (Model 12) X'10' = Console 
X'40' = DISKET 
X'50' = READ42 (1442 Card 

Read-Punch) 
X5F* = Special 
X'60' = Tape 
X*80' - BSCA 

X'84' = BSCA (first time logic) 
X'AO* = DISK (5444 simulation area) 
X'CO' = DISK40 or DISK45 (3340 

main data area) 
XW = PRINTER - carriage 1 
X'E8' = PRINTER - carriage 2 
X'FO' = MFCU] - primary hopper 
X'F8' = MFCU2 - secondary hopper 
X'FF' = Invalid entry 



1 (Model 10) X'10 1 

X'40' 
X'50' 

XW = 
X'80^ 
X'84' ■■ 

X'AO' 

X'Al' 

x<co* 

x'cr 

X'EO' 

x'Er 

X'FO" 
X'FO' 
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1 (Model 15) X'Or = Device independent input 
X'02' = Device independent output 
X'1C = CRT77 
X'40' = DISKET 
X'50' = READ42 
X*58' = READ01 
X'60' = TAPE 
X'80' = BSCA 

X'84' = BSCA with first-time logic 
X'A0' = DISK (5444) 
X'Al' = Multivolume DISK (5444) 
X'CO' = DISK45, DISK40 
X'Cl ' = Multivolume DISK45 
X'E0' = PRINTER 
X'E4' = PRINT84 
X'F0' = MFCU1 
X'FO' = MFCU2 
X'FC = MFCM 
X'FF* = Invalid Entry 

External module names are formed from a 16- 
character EBCDIC alphabet. Each character is trans- 
lated into a hexadecimal equivalent when the module 
name is compressed. In this way, a 4-byte module 
name is compressed into two bytes. The EBCDIC 
characters used in module names and the correspond- 
ing internal hexadecimal characters are as follows; 



EBCDIC Character 


Corresponding Internal 


in Module Name 


Hexadecimal Character 


A 





B 


1 


C 


2 


D 


3 


F 


4 


G 


5 


H 


6 


I 


7 


L 


8 


M 


9 





A 


P 


B 


R 


C 


S 


D 


T 


E 


U 


F 
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On Model 15 Program Number 5704-RG2, when external 
buffers are called, different data management modules are 
called for disk devices. 

The external buffer data management modules have the 
same names as their corresponding internal buffer data 
management modules except for the first alphabetic 
character. (The name is changed in phase SRPRZ.) If 
external buffers are specified, disk data management 
modules with the first character of 'C are changed to 
*W*, a first character of 'D' is changed to T, and a first 
character of T is changed to *X\ Until phase SRPRZ is 
run, the translated name of the equivalent data manage- 
ment module is carried in the compression. 



ERROR FILE 

The error file can contain two different types of error 
information. During the Input and Compression 
phases, the error file is 64 bytes long. Each bit, going 
from left to right, represents an error number. When 
a bit is on, an error message must be printed for the 
corresponding error number. For example, if the 
eighth bit is on, then error message 8 must be printed. 
See the IBM System /3 Model 6 RPG II Reference 
Manual, SC2 1-75 1 7 or IBM Systemft RFG II Reference 
Manual, SC21-7504 for a list of the errors and the 
error messages. 



Example: 

Disk file, external buffers specified 

Internal buffers data management module name: 

$$DFIM 
Translated name in compression: X'3479* 
Changed data management module name in SRPRZ: 

$$YFIM 
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During the Diagnostic phases, the error file builds a 
5-byte entry for each error found. The entry is in this 
format: 



Byte 



1-2 

34 



Meaning 
Length of entry 
Statement number of error 
Binary number of error number 



The compression block table (CZATAB) gives the ad- 
dress of the error file. 



FILE INPUT/OUTPUT TABLE 

This table is created by phase $RPGH and remains in 
storage to be used by the remaining Assign phases. 

There is one 33-byte entry in the table for each file in the 
order defined on the file description specifications except 
the primary file entry is first. The format of this table is: 



Byte Bit 


Contents 


12 


Device type 


13 0-3 


0001 = Primary file 




0010 = Secondary file 




1000 = Chain file 




1001 = Demand file 




1010 = Record address file 




1100 = Table 


4-5 


00 = No sequence 




10 = Ascending file 




01 = Descending file 


6 


1= End of file (col 17) 


7 


1 = File translate 



Byte 


Bit 


Contents 


0-7 




Symbolic filename 


8 





1 = Look-ahead field 




1 


1 = *PRINT or * in column 40 
(Models 10 and 12) 




2 


1 = *PRINT used (Models 10 
and 12) 




3 


1 = From Filename with address 
placed in COMMON at 
COMBKC 




4 


1 = To Filename with address 
placed in COMMON at 
COMBLC 




5 


1 = Line counter specifications 
for this file 


9 


6 


1 = Printer type file or BSCA 
printer file 

Sequence number of file descrip- 
tion compression in which file- 
name is defined 



10-11 



IOCB address 



1 4 0-1 00 = Sequential file 

01 = Indexed file 

10 = Direct file 

1 1 = ADDROUT file 

2-3 00 = Consecutive processing 

01 = Random processing 
10= Indexed file processed 

sequentially by key 
1 1 = Indexed file processed 
sequentially within limits 
4-6 110= Input file 

100 = Combined file 
011 = Update file 

101 = Ordered output specified 
111= Unordered output 

specified 
001 = Display file 
7 1 - Add records 

15 = Variable record 

1 = Fixed record 
1 0= Unblocked file 

1 = Blocked file 
2-3 01 = Extension code specified 

(col 39) 
10 = External indicator used to 
condition file 
4-6 000 = Consecutive processing 

010 = Key (alphameric) 

01 1 = Packed key 

100 = By ADDROUT file 
1 1 = By relative record number 
7 1 = Dual I/O 
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Byte Bit 


Contents 


16-17 


Block length 


18-19 


Record length 


20-21 


Key start location 


22 


Key length 


23 


Overflow indicator mask 


24 


External indicator 


25-26 


Index in storage 


27 


Number of extents 


28 


Operation code and parameters 


29 


DTF length 


30-31 


DTF address 


32 


Unreferenced 


FILENAME TABLE 



This table is built by phase SRPGV and used by 
phase $RPJK. The table contains one 12-byte entry 
for each filename specified in this format : 

Byte Bit Contents 
0-7 Filename 

8-9 Record length 

10-11 1 = Filename not used 

1 1 = Extension specified but not 

found 

2 1 = line counter specified 

but not found 

3 1 = File sequence specified 

4 1 = Match fields 
5-6 00 = Blank 

10 = Chain file 
01 = Display file 

11 = Demand file 

7 1 - Input specifications not 

found for input file 

8 1 = Output specifications not found 

for combined or update file or add 
was specified. 

9 1 = Ledger card device 

1 TRACTR1 or TRACTR2 
11-15 Statement number 



| FINAL SEGMENT LIST {MODELS 6, 10, AND 12} 

$RPSB takes the 16-byte segment list from $RPSP in the 
following format: 

Byte Bit Contents 

0-1 Type 

00 = Subroutine 

01 = Table 

10 = Mainline segment 

1 1 = Subsegment 

2 Segment is subsegmented or first of a 
substructure list if Type = 10 

3 User subroutine if Type - 00 
4-6 100 = Segment is main overlay or 

start of suboverlay 
110 = Segment is contained in main 
overlay 

101 = Segment is contained in sub- 
overlay 
7 Overlay uses both areas (on mainline 

only) 

1 Overlay priority (X'FF' = duplicate 
segment) 

2-3 Address of object code 

4-5 Length of object code 

6-7 Substructure pointer 

8-9 Identifier for each segment 

1 0-1 1 Duplicate chain 

12-13 Volatile duplicate flag 

14-15 Transfer vector size 

Phase SRPSC creates a 10-byte segment list by taking the 
first 10-bytes of the final segment list. Bytes 6-7 are 
changed to contain the relocated address of object storage. 

FINAL SEGMENT LIST (MODEL 15) 

$RPRX builds the 16-byte segment list and $RPRZ adds 
to it. The format of 16-byte segment list is: 

Byte Bit Contents 

Type 

00 = System subroutine 

10 = User subroutine 

20 = EXTRN to system subroutine 

30 = EXTRN to user subroutine 

40 = Constants 

80 = RPG mainline 

A0 = EXTRN to ENTRY 

CO = RPG subsegment 

1 Priority or type of entry segment for 
an EXTRN if TYPE = A0, 30, or 20. 
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Byte Bit Contents 

2-3 Address of object code or: 

- Entry point address if TYPE = AO, 
30, or 20. 

- X'0000' if TYPE - 10 or 00. 

4-5 Length of object code or : 

- ID of referenced segment if 
TYPE = A0, 30, or 20. 

- X'OOOO' if TYPE = 10 or 00. 

6-7 Controlling identifier (a pointer which 

chains entries together), or ID if 
referencing segment if TYPE = AO, 
30, or 20. 

8-9 Identifier for the segment or X'0000' 

if TYPE *A0, 30, or 20. 

10-13 Reserved 

14-15 Name: 

- Compressed name from 16-character 
alphabet if TYPE = 00 or 20. 

- Last two characters of user sub- 
routine name if TYPE = 1 or 30. 

- End + 1 address of referenced seg- 
ment if TYPE = A0 and reference 
segment TYPE = 40. 

- End + 1 address of this segment if 
TYPE = 40, 80, or CO. 



GENERAL STORAGE TABLE 

The general storage table is built by phase $RPLN 
and contains constants, edit patterns, literals, and 
output DTF parameters. Phase $RPLR modifies and 
uses this table. The format of the general storage 
table is: 

Byte Bit Contents 

Length of table element 

1-2 Statement number 



Byte 


Bit 


Contents 


3 




Usage mask 







1 = Total calculations 




1 


1 = Detail calculations 




2 


1 - Program Close Mainline 




3 


1 = LR and Overflow Control 
Mainline 




4 


1 = Open Mainline 




6 


1 = Total output 




7 


1 = Detail output 



4-5 



6-29 



Object code address (built by 
phase $RPLR) 

Object code 



| INTERNAL SYMBOL TABLE (MODELS 6, 10, AND 12) 

The internal symbol table built by phase $RPSE is used by 
phases SRPSG, SRPSI, and SRPSK. The 3-byte table 
format is: 

Byte Bit Contents 

0-1 Disk address of the first sector 

of sorted object code blocks 

2 Number of sectors of sorted object 
code blocks 

3 1 = Object code sorted 

1 1 = Mainline routine is an overlay 

2 1 = Mainline routine contains 

suboverlays 

3 1 = Mainline processed by final out- 

put phases 

4 = Root segment to be generated 
I - Overlays to be generated 

5 1 = Mainline completely in storage 

6 Not used 

7 1 = Number of sectors of sorted 

object code blocks exceeds 225 
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NAME TABLE 



OBJECT CODE BLOCK 



Phase $RPGU builds a 1 6-byte entry for each object- 
time table/array in the name table with this format: 

Byte Bit Contents 

0-5 Table/array name 

6 0-3 Number of decimal positions for 

numeric fields 
4-7 Length minus one in binary of a 

table/array entry 

7 1 = Look-ahead field 
2-3 00 = Field name 

01 = Array name 
10 = Table name 
4-5 00 = Table sequence not specified 

01 - Table is descending or field 

name is UDATE related field 
10 = Table is ascending or, if RLABL 

is specified, field name or mask 

and displacement of the 

indicator 

6 = Alphameric length minus one 

1 = Number of decimal positions in 
zone portion; length minus one 
in numeric portion 

7 Not used 

Address of first entry in the table/ 

array 

Address of second byte of the DTT 

Number of entries in the table/array 
in binary 

Number of statement in which the 
table/array is first defined 



8-9 

10-11 
12-13 

14-15 



Object code blocks contain portions of sequenced object 
text generated by the Assign and Assemble phases. These 
blocks are written onto a disk work file (SSOURCE) during 
compilation. The overlay phases sort the object code 
blocks and generate text-RLD records required by the 
linkage editor. Object code blocks contain up to 255 bytes, 
in the following format: . 

Byte Contents 

Length of the object code block 

1 Length of object text contained in the block 
2-3 Address of the leftmost byte of the text 

4-n Object text 

n+1 Length of the relocation dictionary (RLD). 
This entry is zero if no RLD is present 

n+2-end Relocation dictionary (RLD) 

Each relocation dictionary entry contains two 
or four bytes, as follows: 

Byte Contents 



X'01' = 
X'04' = 
X'0C= 
X*30' = 
X'40' = 

X*80' = 



XW ; 
XW 



Transfer vector not allowed 
Overlay code 
Branch to transfer vector 
RLD address is in ROCA 
Relocate address outside of 
current segment 
External reference (RPG II 
code) (if on, Bytes 2 and 3 
are present) 

External reference (subroutine) 
External reference (user sub- 
routine) 



1 Displacement from the beginning of 

the text to the rightmost byte of 
address to be relocated 

2-3 Translated external module name 
(see Data Management Entry Points 
and Module Names Compressions) 
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PHASE LOAD COMPRESSION 

Phase $RPG builds 1 1 -byte compressions of load informa- 
tion for each compiler phase. These compressions are used 
to eliminate the find every time a new phase is called. 
The format of these compressions is: 



Byte 


Meaning 





Length of entry (constant X'OB') 


1-2 


Last two characters of the phase 
name 


3-4 


Cylinder/sector (location of phase on 
disk) 


5 


Number of disk sectors to be loaded 


6-7 


Load point 


8 


Displacement to first RLD 


9-10 


Entry point 


GMENT LIST 



This list is built by phases $RPLR, SRPMK, $RPMM, and 
$RPMP and is used by phases SRPRX and $RPSA (Models 
6, 10, and 12). The segment list contains information 
about segments of code in this format: 



Byte 



Contents 

X'FO' = EXIT subroutine specified 

X'CO' = Subroutine 

X'BO' = IPCRjOPCR, or constants 

X'AO* = Object code 

X'80' = Mainline code 

Overlay priority with = lowest 
priority to be overlaid (the last to 
be overlaid) 



There is an entry for each mainline and an entry for each 
subsegment. If the subsegment belongs to more than one 
mainline, an entry is generated for each mainline to which 
the subsegment belongs. 



SYMBOL TABLE 

The symbol table built by phase $RPHA remains to be 
used by phases $RPHC and $RPHD. There is one 12-byte 
entry in the table for each field name in the order defined 
in the input and calculations specifications. The table 
format is: 

Byte Bit Contents 
0-5 Field name 



0-3 Number of decimal positions for 

numeric field 
4-7 Field length minus one in binary 

1 = Look-ahead field 

1 1 = Field unreferenced 
2-3 00 = Field name 

5 1 = UDATE related field 

6 = Alphameric length minus one 

1 = Number of decimal positions in 
zone portion; length minus one 
in numeric portion 

7 Not used 

Assigned address in the Root 
Segment 

Number of the statement in which 
the field is first defined 



8-9 



10-11 



TELECOMMUNICATIONS TABLE 

Phase $RPGK builds a 33-byte telecommunications table 
in main storage behind the file input/output table for each 
telecommunications compression. For more information 
on telecommunications compressions, see Figure 3-8- The 
table format is: 



2-3 


Address of object code or subroutine 
name 


Byte 


Contents 






0-2 


Format bytes 


4-5 


Length of object code 










3-7 


Note bytes 


6-7 


Controlling identifier (a pointer 








which chains entries together for easy 


8-9 


Wait time 




identification by the Overlay phases) 










10-11 


Permanent error indicator 



8-9 



identifier for each segment 
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Byte 


Contents 


Byte 


12-13 


Record available indicator 





14-15 


Address of the leftmost byte of this 
station ID entry 


1 



16 



17-18 



19 



20-21 



Number of bytes in this station ID 
entry 

Address of the leftmost byte of 
remote station ID entry 

Number of bytes of remote station 
ID entry 

Address of leftmost byte of Dial 
Number entry 



2-3 



4-63 



22 


Number of bytes of Dial Number en 


23-24 


Address or polling characters 


25-26 


Address of corresponding file input/ 
output table entry 


27 


Remote device selected 


28 


Lines to space after 


29 


Lines to space before 


30 


Line count 


31 


Page size 


32 


Overflow line 



Contents 

T (denotes text-RLD record) 

Length minus 1 of object text con- 
tained in the record 

Address of the rightmost byte of 
object text in the record 

Object text begins in byte 4; 1-byte 
RLD (relocation dictionary) entries 
are inserted beginning in byte 63 
from right to left. Unused bytes (at 
least one) between text and RLD 
contain XW. RLD points to the 
right end of the address displaced 
from beginning of text. 



Each RLD entry contains the displacement from the left- 
most text byte in the record. 

Mode/ 15 

See IBM Model 15 System Services Logic Manual, 
SY21-0034, for text-RLD record format for the Model 15. 



DISK WORK AREAS 

The RPG II Compiler requires that two disk work areas be 
provided, $WORK and SSOURCE. Figures 3-9 and 3-10 
show the general usage of these areas. For more detailed 
information on any phases mentioned, see the description 
of these phases elsewhere in this manual. 



TEXT-RLD RECORD 



I Models 6, 10, and 12 



Text-RLD records are generated by overlay phase SRPSK 
from sorted object code blocks for use by the linkage 
editor. Each record is 64 bytes long in the following 

format: 
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Initiating 
Phase 


Non- Overlay 
SWORK $SOURCE 


Overlay 
$WORK $SOURCE 


$$STAI* 


Unused 


Source data 


Unused 


Source data 


$RPEA 


Compressions 




Compressions 




$RPGX 




Object text blocks 




Object text blocks 


$RPRX 


Initializes 16-byte 
Jong final segment 
list 




Initializes 1 6-byte 
long final segment 
list 




$RPSC 


Converts 16-byte final 
segment list to 10-byte 
(full) segment list 




Converts 16-byte final 
segment Jist to 10-byte 
(full) segment list 




$RPSE 


16-byte final segment 
list and 10-byte (full) 
segment list 

Puts out 10-byte 
segment list and 
sorted text for 
root phase 

Puts out 10-byte 
segment list and sorted 
text for each mainline 
segment 




16-byte final segment 
list and 10-byte (full} 
segment list 

Puts out 10-byte 
segment list and 
sorted text for 
root phase 

Puts out 10-byte 
segment list and sorted 
text for each mainline 
segment 




$RPSG 
(called only 
for overlay) 








10-byte segment list 

10-byte segment list and 
sorted text for root phase 
(updated with overlay 
fetch routine, overlay fetch 
table, and transfer vectors) 

10-byte segment list and 
sorted text for each main- 
line segment (updated 
with transfer vectors) 


$RPSI" 




Phase and Entry 
records 


Phase and Entry 
records 




$RPSK" 




Text-RLD records 


Text-RLD records 




$RPSK (just 
prior to calling 
$LINKB) 


Copyof$SOURCE 
(Phase, Entry, 
Text-RLD records) 








**Called once fo 


r every overlay generated 









Figure 3-9. Use of JWORK and-$SOURCE (Models 6, 10, and 12) 



3-62 



licensed Material-Property of IBM 



Initiating 


$WORK 


$SOURCE 


Phase 






$RPEA 


Compressions 


Compressions 


$RPGX 




Object text blocks 


$RPRX 


Initializes 16-byte 
long final segment list. 




$RPRX 


1 6-byte segment list 


Final text block 


$RPRY 




Sorted and merged 
text blocks; Copy 
of 1 6-by te seg- 
ment list 


$RPRZ 


Input to Overlay 




(just prior to 


Linkage Editor: 




calling 






$OLYNX) 


OPTNS-OPTIONS 
RECORD 

js-esl records 
Jt-text-rld 








> 


t RECORDS 




/ 


J S " 




1/ 


'IT- 




R. Modules 

\ 


1?: 










E-END record 




Note: Usage Df di 


sfc work areas is the same 


n Model 15 RPG II, 


whether or not ov 


erlays are used. 





Figure 3-10. Use of $WORK and $SOURCE (Model 15) 
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Section 4. Object Program 



This section describes the object program generated by the 
RPG II Compiler in terms of: 

• RPG II processing cycle (control flow through 
object program) 

• Object code generated for calculations 

• Functions performed by subroutines 

• Data areas used by the object program 

• Overlay techniques employed by the RPG II 
Compiler 

This section also includes sample dump analysis as an aid 
in examining areas of a storage dump of an RPG II 
program. 

Flowchart Techniques 

Appendix A in this publication explains the general flow- 
charting techniques used. The flowcharting conventions 
in this section differ from the general flowcharting 
techniques in these ways: 

1 . A striped process block signifies an operation 
performed by a routine which is flowcharted in 
this section. 

2. A decision block labeled COMPILER*** * signifies 
a compiler decision. THIS DECISION IS NOT 
ACTUALLY MADE IN THE OBJECT PRO- 
GRAM, BUT IT INDICATES THE CONDI- 
TIONAL PRESENCE OF SOME OBJECT CODE. 
A compiler decision indicates a choice of two or 
more alternatives, only one of which is present in 

a given section of object code. 

The narrative description of the routines only supplements 
the flowcharts. 



OVERALL OBJECT PROGRAM FLOW 

Figure 4-1 shows the flow of the RPG II processing cycle. 
Figure 4-2 shows the cycle in more detail. 



DETAILED OBJECT PROGRAM FLOW 

The object program generated by the RPG II Compiler is 
described in detail on Charts CA through CM- Parameter 
lists and local hold areas are described in the individual 
routine descriptions. Significant data areas are defined 
in Data Areas in this section. 



Open Mainline (Chart CA) 

The Open Mainline performs key functions which control 
the RPG II cycle. It opens files and initializes data areas, 
indicators, and switches to allow a new processing cycle to 
begin. 



Input Processing Control (Chart CB) 

The Input Processing Control routine (IPCR) handles 
processing of input between RPG II and data manage- 
ment. IPCR also handles some error recovery from data 
management. 



Output Processing Control (Chart CC) 

The Output Processing Control routine (OPCR) handles 
processing of output between RPG II and data manage- 
ment. OPCR also handles some error recovery from data 
management. For each file that has output, there is a 
12-byte linkage in the program listing. 



Output Fields and Records Code (Chart CD) 

The Output Field and Records Code routine move fields 
to the output buffer in main storage. 



Output Records 

The object code generated by compile-time phase RPPS is 
divided into six overlay segments. These segments appear 
in different areas of the program logic flow. The segments 
in order of appearance are: 

1 . First Page Output routine 
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Object Program 4-1 



f Enter From $$IP 



Open Mainline 






D 



Opens files. 

Initializes data areas, indicators, and switches. 
Reads and translates object-time tables. 
Performs and translates 1 P output. 




Reads records. 

Resets specified overflow indicators and all H1-H9 and 

L0-L9 indicators. 

Resets record resulting indicators. 

Checks for program halts H1-H9 and displays them. 

Checks for an end of file and sets on LR indicator if 

end of job conditions are met. 



Total Calculations 






Performs total (L0-L9) calculations. 



Total Output 






Performs total output. 






LR and Overflow Control Mainline 



1 



If LR is on ■ 

Performs overflow output if any for each file. 

Sets MR on or off depending on matching file status. 



Input Fields Mainline 



I 



Moves input data fields from the input buffer to the 
specified data areas. 

Reads a record from The file being processed if the file 
is a look-ahead or not a combined or update file. 
Moves look-ahead fields from all files to data areas. 



Detail Calculations 



I 



• Performs detail calculations. 



I 



Close Mainline 



C 



Performs LR calculations and output when controlled cancel 
has been selected for a halt or LR is on. 
Dumps tables. 
Closes files. 



c 



I 



Exit To End of Job Transient, $$SPEJ 



) 



Figure 4-1. Object Program Flow 
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( 



Enter From SSINP2 



I 



) 



Open Mainline 



Chart CA 



Allocate* files lifting $$STAI. 

Opens files using SSOPEN. 

Initializes data areas, indicators and switches. 

Reads and translates files if necessary, using $$PGF I 

(Chart EBJ. 

Perform and translate 1 P output using Output Fields 

and Records Code | Chart CO). 



Detail Output 



Performs and translates heading and detail output using 
OPCR (Chart CC), Output Fields and Records Code 
(Chart CD|, and Fetch Overflow (Chart CF). 






Input Mainline 



Chert C6 



Leaves overflow indicators on if fetched 8t detail time; 

however sets overflow indicator off if performed last 

cycle. 

Displays any H1-H9 halts if necessary. 

If operator selected immediate cancel 

If operator selected controlled cancel 

Sets off all record ID, H1-H9, LM-9, and IP indicators. 

on ——g—-^^^^^^—^^— 



If keyboard is primary on first cycle (Model 6) 



Reads record using IPCR (Chart CBI and selected I/O 
modules, 



If end of file 



Identify record using Record ID (Chart CG). 



If record not identified or if record out of sequence, 
display halt using SSSYRP (Chart EZ or E1) 



If operator selected immediate cancel 
If operator selected controlled cancel 







*>© 




Processes records using Multifile Logic (Chart CH) 

If end of file conditions are met, set on LR 

Process valid force file or multiple input files. 

If match file out of sequence, display helt using 
SSSYRP (Chart EZ or E1) 

If operator selected immediate cancel 

If operator selected controlled cancel 




Sets on record ID indicator being processed using Control 
Fields Logic and Move (Chart CI). 
Sen on appropriate L Indicators if there are control fields 
In record or control breaks. 



If first control cycle | 




Total Calculations 

• Performs total calculations (L0-L9) or LR calculations. 



I 



Total Output 



• Performs total output or LR output using OPCR 
(Chart CC), Output Fields and Records Code (Chert 
CD,. 




20 
2C 



LR and Overflow Mainline 
♦ If LRison M 



Chart CK 



*© 



Performs overflow and output for each file using Output 

Fields and Records Code (Chart CD) and OPCR (Chart 

CO. 

Set MR on or off depending on matching files status. 



if) 



K^ 



Figure 4-2 (Part 1 of 2). Intermediate Object Program Row 
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m 



Input field Mainline 



Chart CL 



• Move fields to work area for fife selected. 

• Set field resulting indicators. 

• Read and translate for look ahead. 



I 



^ 



Close Mainline 



Detail Calculations 

■ Perform detail calculations. 



<5 



Figure 4-2. Intermediate Object Program Flow (Part 2 of 2) 



Chert CM 



• Perform LR calculations when job is cancelled. 

• Perform LR and total output when job is cancelled. 

• Dump tables. 

• Close fliei using $$CLOZ. 




C 



Exit To End of Job Transient I J$SPEJ) 



) 
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2. Heading and Detail Output routine 

3. Total Output routine 

4. LR Output routine 



it, and the field is moved to the output buffer. If con- 
ditioning indicators are given and the conditions are not 
met, 1 is added to the field and the field is moved to the 
output buffer. For IP forms alignment, the PAGE fields 
are not incremented on the first IP line. 



5. Exception Output routine 

6. Overflow Output routine (one segment per file). 

The linkages between the segments are generated as fol- 
lows. The First Page Output routine branches to the 
Detail Output routine, and the Detail Output routine 
branches to Input Mainline. The LR Output routine, the 
Exception Output routine, and each segment of the 
Overflow Output routine are closed subroutines which 
store ARR and return branches. 



Record Indicators: Overflow indicators are not tested in 
the Overflow Output routine. This is done before the 
routine is called* LR and IP indicators are not tested in 
the First Page Output routine or the LR Output routine 
since first page and last record processing occurs once. 



Output Fields 

The addresses of output fields may be found as follows: 

Table Elements: The last referenced element {indicated in 
the DTT) contains the addresses. 

Array with No Index: Array loop control is used to in- 
crement processing throughout the array. 

Array with Variable Index: The Array Index subroutine 
is used to find the desired field (see the Library of Sub- 
routines for a description of the array index). 

Array with Numeric Index: The address is calculated at 
compile time and used directly. 

Punch: Punch fields are all moved and execute first be- 
fore all fields to be printed. 

*PLACE: The highest previously used end position on 
other than *PLACE lines is used for the move. The 
length of the move is from the highest previously given 
end position to position 1 . 

PAGE: If no conditioning indicators are given, 1 is added 
to the field contents before the field is moved to the out- 
put buffer. If conditioning indicators are given and the 
conditions are met, the field is set to zero, 1 is added to 



Editing: For edit words and edit codes: 

1 . Edit patterns are moved to the output buffer. 

2. The field is edited into the pattern. 



If the field is positive, the status is blanked out for 
edit words. 

For edit codes, if zero suppression is specified, then 
zeros suppress everything to the left of the decimal 
point. If the field has no value, it is zero sup- 
pressed through the decimal point on edit codes 2, 
4,B,D,K,andM. 



For Blank After: Alphameric fields are cleared to blanks; 
numeric fields are cleared to zeros. 



Update FILES: An image of the update files is moved 
from the input buffer to the output buffer before output 
fields are moved in, except when adding to an update 
file. An image of the update files will not be moved to the 
output buffer in this case. 



Input Mainline (Chart CE) 

The Input Mainline routine generates code to get a record 
and checks for end of job. In addition, it performs these 
indicator functions: 

1 . Resets specified overflow indicators and all H 1 -H9 
and L0-L9 indicators. 

2. Resets record identifying indicators. 

3. Checks for program halts (H1-H9) and displays 
them. 

4. Checks for an LR indicator and, if LR is found, 
control is passed to Control Fields Logic and Move 
routine. 
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Fetch Overflow (Chart CF) 

The Fetch Overflow routine determines if overflow has 
occurred for the file being processed. If overflow has 
occurred and is still pending, the overflow segment for 
the file being processed is called and the second internal 
indicator is set on. There is a fetch overflow routine for 
each overflow mainline. 



Record ID (Chart CG) 

The Record ID routine identifies a record, moves control 
parameters into the IOCB, and sequence checks the nu- 
meric sequence for all record types. 

This routine also checks column 17 (Number) and column 
18 (Option) of Input Specifications. 



Multifile and Matching Records Logic (Chart CH) 

Chart CH describes the three types of multifile and match- 
ing record logic: multifiles with no matching fields, multi- 
files with matching fields, and one input file with match- 
ing records. 

Four areas are described as work and save areas. H2 is a 
work area located at the beginning of ROC A. HI is a 
storage area which is assigned to ROC A if HI is not 
greater than 72 bytes. If it is greater than 72 bytes, HI is 
generated as part of the matching records code. SI is a 
save area assigned to the Root Segment containing the 
matching values of the last selected file. It is used few- 
sequence checking. S2 is a save area assigned to the Root 
Segment containing the match values of the last selected 
primary file. It is used to control the setting of the MR 
indicator. 

The address of the primary file IOCB is stored at dis- 
placement X < 98'-X'99' in ROCA, and the address of the 
last selected IOCB is stored in ROCA at displacement 
X l 9 A'-X*9B\ See Data Areas, Match Field Save Areas in 
this section for further discussion. 



Control Fields Logic and Move (Chart CI) 

The Control Fields Logic and Move routine determines 
whether to bypass total output and total calculations for 
the first RPG II cycle or bypass total output and total 
calculations when the first control break occurs. The 
routine also moves the control fields to a work area and 
compares them against the last set of control fields. If 



there is a control break, the appropriate level indicators and 
all lower L indicators are set on. 



Chain and Read (Chart CJ) 

The Chain and Read routine performs three functions for 
each file: 

1 . Identifies the input record. 

2. Moves record control parameters to the IOCB. 

3. Moves data fields from the data area to the output 
buffer. 

LR and Overflow Control Mainline (Chart CK) 

The LR and Overflow Control Mainline performs four 
functions: 

1 . Calls the Program Close Mainline if the LR 
indicator is on. 

2. Tests for overflow and, if on, calls the appropriate 
Overflow routine. 

3. Sets off all internal overflow indicators. 

4. Sets the MR indicators. 

Move Input Fields Mainline (Chart CL) 

The Move Input Fields Mainline performs these major 
functions: 

1 . Moves input data fields from the input buffer to the 
specified data areas. 

2. Reads a record from the file being processed if the 
file is a look-ahead and not a combined or update 
file. 

3. Moves look-ahead fields from all files to data areas. 

Object code generated to perform these functions is de- 
termined by the type of field: 

Field Type Code Generated 

Alphameric MVC instruction 

Numeric ZAZ instruction 
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Field Type Code Generated 

Pack Linkage to unpack subroutine 

Binary Convert to Decimal subroutine 

Alphameric array MVC instruction for each 
256 bytes of data 

Numeric array ZAZ instruction and loop control 



Program Close Mainline (Chart CM) 

The Program Close Mainline performs the necessary 
RPG II functions for end of job by processing LR calcula- 
tions and LR output. It also closes files and dumps 
tables* 
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i ENTRY * 
> t 

•••••*****«• *•* 



.COMPILER**" 



**** 

■ 4 

■ ei « 

> 4 

**** 



• *2 *---, 

♦-*** V 

.•.COMPILER**** 
A2 *. 
.* ANY *. 

• ^conEEtIoneo*:*— — . 

*-. ..* i 



• * 

* H2 * 



' 02 * 

* * 

*••• 



1 

A3 • . 

*. indSs . 



• A+ * . 



•'I 



.•CONDITIONED*. 

CTERf 
<DRS 

Vves 



EXTERNAL 

INDICATOR 

ON 



• *"•• 
i < 

► C3 * 
• i 

•*•* 



* TO ZEROS + 



••**«******#**•** 



* RPCH HALT + 



: S6T °R«s T i,S0L6 : 

• * 

************* •**» 



* El * 

• ••• 

*****El********** 
•LOAD ADDRESS OF* 

* PROGRAM LEVEL * 

* COMHUNICATf- 



WOGRJ 

:ohhunic/ , 
area into xp-2 



•a*************** 



*•***£!* +******•• 



**♦****•****•**«* 



*****G1********** 
*HOVE OOATE FROM* 



••**•***♦»»•••»•* 



•***4tU«********* 

• * 
•CLEAR INDICATOR* 

• Alt EA * 

• • 

• * 



**»»*jl*«^ ******* 

: raBcitwa : 

•INOICATOR ARE*:* 

* SETON IP.LO ■ 

• • 
***************** 



******],*********• 

: to te apu ": 

• FIRST DTF ♦ 
*AODRESS IN XA2 • 

* • 
***************** 



• A2 * 

• *** 



C2 *. 
.* *. 

-* EXTERNAL *. NO 

*. INDICATOR .* 

*- ON .* 
*. .* 
*. .* 
* YES 
•••♦ 

• 4 

• D2 •-> 

• 4 
• *** 

*****D2"**«***** 

• * 
•CLFAR DTF MASK * 

• TB FORCE QTF * 

• OPEN + 



• YES 



•••••C3***a****** 

• INDICATE IN * 

• IOCB THAT FUE * 

• IS OPEN • 



*****Q3*****»#*** 



a**************** 



*****E2********** 



***************** 



P3 



NO . 


• 


PRI OR *. 


— * 




SEC FILE .* 


1 


* 


.* 




*. .* 


V 




• « *• 


• *** 




* YES 


* 




1 


G3 • 




1 ^ — _ — 


• 






**** 




J 



*****( 

• CLEAR ALPHA * 
•TABLES. ARRAYS,* 

• AND FIELDS TO • 

• BLANKS • 

***************** 



• **#+C*f ******«*■ 



*****P4 ********** 



***************** 



.•.COMPILER**** 

j* PRE- **. 
.• FX6CUT10N •. NO 



•- TA6LC/ 
*. ARRAY -* 



F2 

.*" ENO 
*. TOCB ( 

*. 
*. 


*. 
*. 
OF • 
HAIN 

,* 
.* 
.* 
> YES 


. NO 

"I 

*•*• 








* A2 

* 
••*» 


\ 
*****K2*i 

* RELOAD 
•IDCB ADI 

* XR1 Al 

* AODR 


>******** 
FIPST • 
>ftESS IN* 
JD DTF * 
N XR2 • 





»*••< 



*«***F3** ******** 
•MODIFY INST. T0« 
•INDICATE A PRI • 

• DR SEC FILE * 

• OPENED • 



•LOAD EACH TAPLE* 
***************** 



i3 *-> 



*****£3**»****** 

* CHAIN IN XR1 



**< 



*•*• 

► • 

► H2 •-> 
* * 

♦ *** 



***************** 



* * * + 

* *OPEN FILES * * 

* * • • 



' ENO OF 
IOCB CHAIN 



••.COMPILER**** 

..** ***. 
,* LP •. NO 

'♦.SP^C^EO.*'*" 



V CD/Ol/Al 
*****H4 ********** 
• 0TFLD6RLD * 



PERFORM IP 
OUTPUT 



***************** 



• *** 
> 4 

' K2 * 

i * 

*•** 



°?,L s li •:•*-„ 

CLOSEQ .* r 



•H *. 
*" OUTPUT 



**** 
*#***K2**»******* 

: LD 8?f*Ao8RE§j £0 : 

•FROM IOCB INTO * 
• XR2 * 



•••• 
i ■ 

' A4 * 



****j5********* 

• * 

->* EXIT * 



ICE/01/A2I 



•***K3***a***«« 

■ t 

* EXIT 



RFC HALT 

PROCESSOR 

EZ/0VA1 



****K4 ********* 
l i 

* EXIT * 



TO: OUTPUT FIELDS AND 



* A3 * 

* • 



Chart CA. Open Mainline 
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****AI ********* 
* ENTRY < 



• •** 
► A3 * 

**** 



Wm 



* dtp iF 3 NEEDer 

* * 
***************** 



i 



DID AMY 
ERRORS 
OCCUR 



'NO 



•«>SVRf 



,u«ia i 



►• CALL RPG II * 
♦HALT PROCESSOR * 
* * 

***************** 



*****g i********** 

* * 

* STORE RETURN * 

* * 

***************** 



S3,, *. 

,* (5 *. 

.♦DEVICE MFCU*. 

**. CONSOLE .*' 
** ■* 

*. ,* 
YES 



HO 



.COMPILER**** 



******** 



no .* limit; 

,— *. OR " 

*.SP| 



.* THIS *. NO 

->*. FILE READ .* 

*.BY LIMITS.* 



*****C3*** 

TO.IJT^lKODlL * 



**** 

* • 

• HI * 



Dl *. 

.* This *. 

.* FILE READ *. 
BY 

*. AODROUT .* 
*. .* 
*. .* 
• YES 



TIME 



• HI * 

• • 
• *•* 



**** 

i < 

' HI * 
■ * 
**** 



T 

• * 

* HI * 

* * 
• *•* 



*****£ l********** 
* LOAD AODROUT • 

WtdfeK 



*****£2**** ****** 

* POINT XR1 TD * 

* LIKItS • 

* INPUT/OUTPUT * 

* MODULE • 

* * 
***************** 



•**• 
*D02* 
• <53 *-> 



*****Fl********** 

* * 
*LOAD ASSOCIATEO* 

* IOCB ADDB IN • 

* XR2 * 

* * 
***************** 



•****F2********** 

•LOAD ASSOCIATED* 

* 10C6 ADDR IK * 

* XRZ • 

* • 
ft*************** • 



10 CNO 



LENGTH IF 

* CONSOLE FROM * 

* IOCB TO DTF • 

* • 
***************** 



*****E3**** ****** 
• *APPROPRIATE« * 

:.u.s*«s*!i**;*: 



****»F 3 *•*»•***•* 
•BUFFER ADDRESS • 



: Hl :-> 

***• 



.* WAS *. 
.♦CONTROLLED *. NO 

CANCEL .* 

•.REQUESTED.* 



♦ YES 



HI. 



.•.COMPILER**** 



TYPE 



H? 



SVRP V EZ/01/A1 

• *** *H3* ******** * 
■»»$YflP * 



RY 



**•* 
► Jl 



PROGRAM 
.t 
*. .* 
* NO 

> 



•***4Jl********** 



>********• 



*****C4 ********** 



*****04 ********** 

• • 
•RELOAD IOCB TO • 
•XRZ. ROCA AREA * 

• IN XR1 * 

• * 
A**************** 



*. COMPILER*' 



m 



♦ Yf.5 



***************** 



,*fieeD \o be**, no 

•.TRANSLATED C .* 

*. NORMAL .* 

..C.OMP*.* 
YES 



V EB/OL/Al 

•a***H*********** 
*I»PQAB * 



. rue 

Stttf 

>*****< 



• TRAr 

* SUBRf 

***** ************ 



5aar s 



*****xi**+ ******* 

* * 

* LOAD OTf * 

♦ADDRESS IN XR2 • 



**•***••••***•*•• 

I 

*••* 

* • 

* A3 * 

* * 
**** 



3UT * • 
* TRANSIENT * * 

***************** 



y et/oi/a; 

*****KZ* *•*•*••** 
•fftPGLft _• 

• CALL COMMAND • 

: hXht m 3K«m : 

**•***•••***••**• 

i ..-. 

->* j i * 



.♦.COMPILER**** 

U. *:V L AoTOyT *:*- A 25. R - 

I *. SPECIFIED.* 



•***H5********* 
( * 

* EXIT « 

* *, 
*************** 



NG 



J5 *. 
.* FILE *^ 

■>*.**ASSo£jf|TEO 



*•** 

* * 

* A4 * 

* • 
• •*• 



***** 
•002* 
* K|* 



•****K 3 ********** 

* * 
•SET ON EDF BIT ♦ 

♦ IN IOCB * 

* * 

• * 
***************** 

I**** 
• * 

->* A* * 

* * 

**** 



• 002* 

• Bi* 

* 4 



IS THIS 

THE RAF 
FILE 



♦ YES 
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HAVE **. NO 



LOAD ISAM 



•MODULE APQRESS * 

****** •* **** ***** 



.. 0l *%. 

.* IS THIS *, NO 

♦. THE LIMITS .* 

*. FILE .♦ 



♦AI>DR«$ irXBl * 



X 

.* ISAM *. NQ 

• . Flit AT EO* -•— — - 



*****GL*** ******* 

: seT ?&w elT : 

* * 

* * 
****♦*********++* 



w 



*****C3** ******** 



**•******••**•**« 



*****Q3********** 

• LOAD KEY WORK * 
♦AREA A DOR fRDM 4 

• DTF TO XB1 * 

• • 
***************** 



••••»E3*4 ******** 
• INTO XR1 * 



***************** 



*****FJ*»******** 

* INPUT /OUTPUT * 

* MOOUL6 AOOft * 



X. 
G3 *. 



*ooi* 

* * 
•*** 

•****H3*a 

: L gsi? hk xs£E : 

• ADOR TO xSl * 



V 

***** 

• DOl* 

* Fl* 

* * 



***»*H3** ******** 



:°a: 



**** 

+ * 

->* X2 * 



EOF 



*5o} : 



* Kl * 

* a 
**** 

*****K1*** ******* 

* * 

* RELOAD ROCA * 
->+AOME5S IN XR1 *- 



***************** 



******** 
•*** TOI CALL 



EXIT « 

******* 



■ K2 « 

**** 
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ENTRY 



L 



* FILES *. YES * • 

>*, CLOSED .* >* B5 • 



*****B 1********** 

• • 

• STDRE RETURN * 

• ADDRESS AND • 
•NODULE ADDRESS * 

• * 
********** ******* 



'A3 * • 

• * B3 *-> 

***** * 

• *•* V 



B3 *. 

.* *. 

.* *. NO 

*. OVERFLOW .♦— — ■ 

♦.TYPE FILE.* 

*. .* 

*. .* V 

* YES **< 



.♦.COMPILER**** 
CI ♦. 



NO .*COND[TIQNEC*. 



01 *, 

FILE 

CLOSED 



,a *. •••• 

-* OVERFLOH ». YES * * 

*. Type .*——>• b? • 
*. output .* • • 



•KG 



I NOR HA! 
IN 
1ST 



VE INC 
FOR SET0K 
56TOF INST. 



• HJ « 

* 4 

• *** 

.•.COMPILER**** 



,* E J 

translate 
.specified, 

*. .* 

». ,* 
YES 



*****? i*+******** 

• * 

TO * 

X*FF> 

m m 

***************** 



*****£ 1********** 

* • 

♦LOAD IOCB AOCR * 

• • 

***************** 



NO 



NO .*NeEO ! TO BE**. 
.— *. TRANSLATED .< 



* A3 • 



V EB/01/A1 



**PGAE 



MODEL 10 ONLY 

.*. 

.♦MFCU Oft*. 
.* 1*42 i 

>*. COfleiNED 
*. FILE .< 

♦ ♦ .* 

*. • * 
• Y65 



*****F2*** ******* 

• * 

• MOVE STACKER * 

: $ELE fS i8?g DTF : 

• • 

**,*•******•*••*•* 



YM 



F3 *. 

.*. SHIP *- 
.•AFTER, ENTRY*. 
'. LESS THAN .' 



YES 



HB- 



.** DID **. YES 

;-**•*. ov o^b°R H .*■*— 






* 



**************** 



• * CALL * • 

• "APPROPRIATE* • 

• *I/0 NODULE * • 

***************** 



• *** 

* 4 

► H2 < 

I 4 

• *** 



SHOULD 
BUFFER BE 
. SAVED 



*****j2********** 

* * 

* CLEAR COMMON • 

* OUTPUT BUFF Eft • 

* TO BLANKS * 

* * 
***************** 



bIfore 

BLANK 



H3 *. 

.* SKIP «. 

.* BEFORE *. 

•.ENTRY < PREV . 

♦.POSITION .• 

*. .* 

*. .* 

NO 



* K3 * 

* * 
•*** 



1 



.•.COMPILER**** 
KZ *. 

.♦Conditioned*, no 
output .* . 

*. FILES .* I 

*. .♦ I 

**** 



J3 *. 
.* *. 

•!* OVERFLOH 
*. OCCUR . 
♦ . .* 
*. .* 
* YES 
•*** 

• i 

* K3 *-> 

• *•* 
*****K3^********' 



*****64********* 

* internal and 

* EXTERNA!. 

* OVERFLOW 

* INDICATORS 

**************** 



**** 

* * 

* H* *-> 



:ur OR ♦. NO 

*. CONTROLLEO .♦ 

*. CANCEL .* 



V EZ/01/A1 
•****j4********** 
•AISYRP • 



•HALT PROCESSOR • 

* * 

***************** 



► B5 « 
* t 

*•*• 



.♦.COMPILER** 

NO 



.*|lCA/w"*. 
,* CONVERSA- *. 



NO V 



*****E5********** 

• * 

• PUT IOCB * 

• ADDRESS IN * 

• FORCE BUCKET * 

• * 
***************** 



•*****5********** 
* * 

•FORCE THIS FILE* 
*T0 BE^AD NEXT* 

***************** 



**** *Q 5 ***•**•» *• 

* * 

JbufPer* So'dp^'In * 



***************** 



***• *h 5 ****** **** 



* LOAD ROCA 
•ADDRESS IN Kftl 



1 



BS 



****J5********* 

► i 

| EXIT 4 

*************** 
TO: CALLING 



■ ON INTERNAL* 
ID EXTERNAL ' 
INDICATOR * 



**•* 

* * 
— >* H4 * 

* * 
• *** 



YES 



* A3 * 

* * 
*»** 
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* A5 * 

• * 
**** 



J 



*****Bl ********** 



*tOAD ADDRESS OF* 
• BUFFER IN XR2 * 



****** *********** 



. CF/C1/A1 
*»***A3********** 
•FETCHQVFt _ _ * 

•"cALL~FETCH~ "• 

• OVERFLOW IF f « 

* SPECIFIEO ♦ 

***************** 



B3 *. 
» « 

MOOEL 6 

'. .< 

*. .* 
* NO 



1CC/01/A1 
******** 



*****A3*< 

• OPCR VIA LINK • 
* — -._.———« 

•PROCESS OUTPUT • 



* B5 *~> 



**** 
*RPPS .+ COMPILER**** 



**** 

• * 

* c* *-» 



tRPPS ,*CONPILER**« 
.* Cl ••*. 

.:*le£ t „\ *:-"£-. 

*. 14* .* 



C3 



COMPILER**** 

*. 
*. 

NO 



LAST *. NO 
RECORD .* 



♦CLEAR BUFFER TD* 
* BLANKS * 



********** ******* 



.* PUNCH *. N 



YES 



►C4 **•*******. 



*** ************** 



****C5*4 ******* 

► EXIT < 

» * 

••*****•****♦** 



*****03 ********** 
• MOVE PUNCH * 



■»•*•*****»*****• 



1 

i a 

> AS < 
I i 

**** 



.*. CON FILER**** 



.* IP *. YES * * 

*• Es*fl5 ••" — >• E5 * 
•.alignment.* • * 



*♦*• 

* • 



•****e3* 



* NO 
*♦♦* 

* * 

* Fl *-> 

* • 
**** 

*****FL****« 

* HOVE OUTPUT 

'"HT 

********** 



♦BUFPeSJ^AGf" TO* 
• AOCA * 



***************** 



***»*F:i *•*****♦** 

* HOVE REST Df * 
•PUNCH FIELDS TO* 

• OUTPUT BUFFER * 



*****E5********** 



e .■»*: 

DTF • 



W.M 



***************** 



fMPt\.K 
. RECDRD 



*••* 

* * 

**•* 

*****H1* 

• MOVE PARKS TO • 



* PREV FARM * 
***************** 



■9* A3 



» OPCR VI A LINK * 
♦PROCESS OUTPu"* 



*****H3********** 



*****F j* ********* 
* HOVE OUTPUT * 



WJF. 1 



*********** ** **** 



* OPCR VIA LINK * 

•PROCESS OUTPUT * 

* * 
***************** 



*CALL RP6II HALT* 

* PROCESS ER * 

***************** 
I CONTINUE 
*«* + 







Jl *. 






♦ * *. 


NO . 


* 


INDR ON * 
FOR THIS 
. RECORD ♦* 


— *. 




1 


* 


1 




*. .* 


•¥•* 




** .* 

* YES 


♦ * 




I 


* B5 * 






* * 




V 


♦ *** 




♦ • 

* A3 * 

• * 
*+*• 



*****J3**** ****** 



l TO ftflW* 
BUFFER 



********* 



*»**»K3*+******** 



***K3 



***************** 



*«•* 

* « 

* C* • 
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****A 1 ********* 

* < 

* ENTRY * 






•*** 

* • 

• B4 * 



YES 



• Gl * 

* • 
**** 






1*. OFF .* 
*. .* 

*. .* 
** * NO 



>***C2*****« 

SET OFF 



**************** 



C* 



► CI - 
■ < 

**** 



»****D1********** 

• SET OFF 2ND * 

: uzeiwl- : 

+ INDICATOR ♦ 

* * 

***************** 



El ♦. 



**+**E2**' 



*:* ovWfE oh •: J5 — ^ra^g* :. 

•.INDICATOR.* * * 



,*. COMPILER**** 



. ihuh in run »»---^ 

*. .* I 

•. .» I 

«. .* V 



1 


f YES 


**** 


»•** 




• * 


* * 




* E* * 


• CI *-» 




* • 


• * 




•*•* 


• **• 


/ 




.*. 




CI *. 




.* *. *J 


•:* Hi-fi! 


!*« 


•:JS.->: 



• YES 



V ez/oi/Ai 

*****H1********** 
•MSYRP * 



• CAL 



thmki 



ji *. 

.* *. *«** j********** 

.* *. CONTROLLED* * 

*. OPERATOR .* >* EXIT « 

•.DECISION .* CANCEL * * 

*. .« *************** 

*. .* 

* TO: PRC 

TCONTINUE ClI 

I cm 

..** 

• * 

• B4 * 

• • 
••** 



**•• 

* * 

* F4 • 

* 4 
»*+* 



******* 



/Al 



» f* •-> 



.* *. ****E5********* 

• I* OPERATOR \-S!™MIS EKIT : 

♦.DECISION .* CANCEL * • 

*_ .* *************** 



♦♦♦♦ (CONTINUE 

* * 1 

* F* »->! 

* * J 

**** 

•****f4> •**•***•*• 

• SET OFF ALL * 

• RECORD • 

• IDENTIFYING * 

* INDICATORS • 

• * 
***************** 



*****G4**j» ****** 

: L?- E l9? F Hiik= 

• SET ON LO 



TO* PROGRAM 
CR/Dl/Al 



.* L 

>. I KOI i 

*. 01 



.R * 
CATC* 
)N .* 

.* 
,* 
• NO 


*:!t 


V 

***** 
*002* 

vr 

* 


If.NOOEL 

*. 


6 


MODEL 6 
•***J5 ********* 



*. YES 

. KEYBOARD .* >* EXIT 

•. PRIMARY .* * 



Ul& 
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***** 
» * 



tttt 

« • 

• ♦ 



*♦•♦ 

• ■ 
« B(l • 

* * 
• a** 



*.COMPTL*F*«** 



.L, EC 

: clo; 

FIT.* 



-•PULL, TO?. •. YES 
■->*. OH CLOSED .•■ 



• * • • 

' pi * 

SRPPi 



• SO 
I 



I 

* 
* 



CI *. 

• i 

101*- 
IHFAD T1 
PHO^RA* 



m •. 
.* LOOK < 
!E3 .* AHEAD OP 

•. IDFNTIFY 

•. OHLT 
*. .< 
** .* 
* NO 



* ca/oi/Ai 

i****El«*«*«*«a** 



•IPCPffTA LI¥K) 
• BEAD A FILE 



.• ElfD OF •. TES 

'. FIIF 



' I 



• «** 

• • 

• C3 • 

• • 

• *•♦ 



fr CC/01/M 
•BECORDID * 

• « 

•IDENTIPT RECORD* 



S8PPC . ♦.CGHPILEIi** 


»* 








J) •. 










• * 




► •♦• 






.• TSATI Eft •. TPS 


• 




* 


* 


KFCORQ .* 


->• 


03 


♦ 




■ . . • 


9 




B 




• . .• 




>••« 






*. .* 










• Nfl 










1 *••• 
* * 


























• * 










*••» 









.* ftsst 


*. 


TES 


. • 


TOTAL •. YE5 


TVMLET< 




*----, 


•-CALCULATIONS . ♦ 


-. ULAKK 


* 


1 


• 


, • 


♦. . * 




1 




*. • 


• m . • 






* * 


* NC, 




• *■*• 




* KO 


• **• 






•001* 




1 


* 






♦ CI* 




1 


CI •-> 






* * 







»B5« 



* l>t<OCE5S TOTAL • 
■>• CALCULATIONS • 



•««a*C3********* 

* 

•LOA3 KEXT IOCP 



.•.CCflPTL "»•*•• 



TOTAL 
OUTPUT 



• ****C^**** ***** 



• PROCESS TOTAL 
■>• OUTPOT 



D3 



• •• • 




•no i • 




• Ml| • 


-> 


* • 




• •*» 





EXIT 



•31 • 

* * 



tHPPC . ••CORPILEH**** 

t.l *. 



TO: LB AND OVESPLOH CONTROL 
ROUTINE, CF/Ol/Al 



' FORCED 
PILE LOGIC 
>. SEEDED . 



TIL.?. 
FORCED 



G3 



l™ 



YES 



CH/01/A1 

*****H]*********+ 

♦-.FLS1ATCH • 

* * 

♦IF REQUIRED TO * 
• fllTCtt FLDS * * 
MULTIFILE LOGIC* 



• STOftE ADDRESS ♦ 

• OF SELECTED • 

• FILE IOCB IH ♦ 

• ROCA • 



♦ SELECT THTS * 
->* FILE: SET OFF * 

• SB INDICATOR • 



* B-U « 

• ' 
• **» 
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EKTBY 



• SAVE PARAMETERS* 

• peon dtp r« • 

• BOCA * 



.♦ FIfiST *. 
, * IHTEBSAL *. HO 

.OVERPLOU 3IT .* 

*. OB .• 



CD/01/A1 
•••**£!**•••*•••* 
►OUTPOTPLDS • 

*_„ * 

•PB0CE5S ODTPDT ■ 
• OVERPLOU • 



SET OH SECOND 

XHTgfrNAX. 
OVEHFLO* BIT 



• SET OFF FIB5T 

• IHTZBBAL 

• OVERPLOB BIT 



• * 

• BESTQBB • 
•PASABETE8S FBOIt* 

• BOCA TO DTP * 



« i 

* EXIT * 



TO: CALLING BOOTINE 



Chart CF. Fetch Overflow 



Object Program 4-15 



Licensed Material-Property of IBM 



* ENTRY 

*********** 



•**• 

* * 

* e2 * 

* • 
♦*** 



*****£ L********** 

* LOAD INPUT * 
•SUFFER ADDRESS * 

* INTO Xftl * 

* * 
****** *********** 



.." **. 

ho .* record *. 
~ *. a sequenceo . 
I *. recSro .* 



•*•• 

» G2 » 



CI 

.♦ ALL 

:*- s *:S m 5e! 

*. FILE 



**** 
* < 

» EL " 



.* 
.* 
ND 



****»£2* ********* 

• SAVE LAST • 

: Immi : 

• parameter * 



*+***01 •**•*»+••• 

J" PROC6SS • 

: ^SE ? U|NCEO J 

44**** *********** 



• •** 

* El *-> 



• *** 
IRPPF .*.COMPIL€**' 



• ** * *p2 * + *+**»**♦ 

• MOVE NEW • 

• SEQUENCEO • 

• RECORD • 
♦PARAMETER INTO * 

+ nee * 



*i\ 



no .* numerous 
— +. man 1 "" - 

I *.TYP 

*. RCD 






« Gl • 

**•* 



**+* 

* 4 

* G2 * 



*++«*F2***+****** 



*„ — -_____«• 
•SEQUENCED FILES* 


* SET ON • 
•MANDATORY FOUND* 

• BIT IN IQCB • 


• • 


• • 


•***+************ 


***************** 


**+* 




*■■• 




• * 




• • 




• Gl *-> 




• G2 •-> 




• * 




• * 




**** 




• *** 




*****€ 1********** 




4 


•INITIALIZE KR1 * 

• tO HOVE • 

• UNSegUENCEO • 

• PART Of PAftH. • 


****£? ••***•*•• 


* * 


• EXTT * 

• * 


• * 


*************** 


•*••*•*•**•****•* 








TO: INPUT MAINLINE 






CE/02/B 


i 



*****H1 ********** 

• HOVE • 

• UNSEQUENCEO • 

• fiJTOF PARH • 

• INTO IOCB * 



IRPPF .%. COMPILER**** 
Jl *. 
.* ANY *. **** 



, RECORDS 



iCED 

tos i 

,* 
NO 



->• 82 » 
■ a 

***» 



I**** 
• * 

->* G2 • 



UNSEO 

****A4 ********* 

• * 

• ENTRV * 



♦ B* *-> 



•*•• 
JRPPF .*. COMPILER**** 

.*-*W**V ,0 



res 



INGE XRl TO • 
JSITIOK IN * 

• euFFEi * 

• • 
a**************** 



.-* BUFFER •. NO 
•.PnSlTTON MEET.*— 
•. TEST .• 



• YFS 



,*.COMPILER***« 



ES .*" ANYMORE V 



**** 

• • 

• 34 * 

• • 
•*•• 

CftPPF 



.♦.COMPILER**** 



> * NO 

> GL *< < 





COMPILER**** 


RPPF .*. 


D5 ♦. 


• ■ *. 


.• MOKE *. YES 

. RECOROS IN .• . 


*. FILES .* I 


*. .• 


♦ . .* V 


• no **•• 


1 * * 


• 84* 


* ♦ 


1 


.*. 


E5 *. 


.♦ •. 


: l: K M iH **'- m ~i 


*. .* 


*. .♦ V 


♦ NO •*•* 




• * 




* El* 




* • 




**•• 


■ ***f ■;■*••*•••• 


EXIT * 

« 
*************** 


TOi tm\\ w 


TRANSIENT 


EZ/01/A1 



UPDATfi • HO .' 

DISPLACEMENT TC*< •. 

N5XT TRAILE" • 



**** 
->• Gl < 



*****HV«*** ****** 



TO! INPUT 

MAINLINE 
CE/01/A2 
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SEC 



ENTRY 2 

i 
»»*••*••*•••• 



* ENTRY 1 • 

* * 




• *** 

* * 

* B2 *-> 

* • 

• *** 




82 *. 

.•'NUMEROUS***. YES 
• . MANDATORY .« 

'%. SE0 ..-' 


* * 
+ CLEAR RECORD * 

>* FOUND BIT IN * 

* IGCB * 

* * 



V 
IRPPF .*. COMPILER**** 



• C2 * >*. PI] 



***«*C3 ••••***«*• 
•BUFFER *. * * 

SHU ■:.«*. — >: c sa?i« st^g : 



* TEST POSITION * 

• * 
•*•♦•••***+»**••• 



♦ *. IRPPF .+. compiler**** 

DZ *. 03 *. 

.•CHAR AT*. .* *. 

,* BUFFER *. YES .* MORE 

■ POSlSiON MEET.* >*.. PgilTJ 



'./raw.*' 



*. YES * 



>* C2 • 



r 



* • 
•••• 



RECORD 

FOUND SIT 

OFF 



* NO 



»RPPF . 


». COMPILER**** 


C2 *. 


.* *. 


YES .* ONE *. 
— ». MANDATORY ,* 
1 *. SE6 .* 


1 *. .* 


V *• .* 


*•** * NO 


* * 




* KZ * 




* • 




• •** 




IRPPF .*. COMPILER**** 


F2 


*. 



YES •* NUMEROUS *. 
*. MANDATORY .* 

*. 5EQ .* 



IRPPF .*. COMPILER**** 



**+**E4 ********** 



.* NUMEROUS *. YES *RESET TO ENTRY * 

*. MANDATORY .* >* 2 * 

*. FOUNO .* * * 



*»»*****»*•*••*** 



*««**F3********* 
•RESET TO ENTRY 



* EXIT i 



*••• 

• • 

: «: 



TC: CALLING ROUTINE 



WPPF . *.C0KRUER**** 

H2 *• 

.** ALL SEO '*. NO 

*. RECORDS .* ■ 

•.OPTIONAL .* 



* YES 



••+* 
k i 

* B2 i 

► i 

•••• 



J2 *. 

* » 

IN LCOP 



Ml 



• K2 *-> 

• • 
*•*• 



••••K2********* 
► i 

* EXIT " 



* < 

* B2 < 

* * 
*••* 



fRANSlENT FZ/01/AI 
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•***A 1 •**•*•••• 

t 4 

► 6NTRY * 

» t 

••**•*******»** 



*•»* *fi i * ******** >* 



J ICCB INTO XR2 • 
***************** 



arara aw k- 



****Aa***«* 

* ENTRY 



FCJ CHECK 

****A4 ***••*•** 

• * 

• ENTRY « 

• » 
***»•*********• 



HOVE 



«****B3 •*••**•••• 

* 4 

* * 


*****B4*«******** 

• * 

• HCVE PRIMARY • 

• [CICP INTO XR2 • 

• • 

• • 






♦ * 

• • 

• **• V 



> 6KTRV * 

I 4 

*************** 



*****B 5* •*•••*•* 

* 

•SAVE RECORD 10 

• INDICATOR IN 

• ROCA 



.♦ PRIMARY *. 
*. FILE AT EOF . 

*.0R CLOSED.* 



* YES 



**•**£ i********** 
JMOVE OPUS* 

* HOVE NATCM * 
•> RECORD FIELCS * 
•> TO WORK AREA * 



*****fl. ********** 



•HOVE WORK AREA 
SAVE AREA 



W 



***************** 



•a* **gi*«* ******* 



***************** 



• STORE IOCB * 
•ADDRESS IN ROCA* 

• AT X'$8» t * 

• X'W * 

• * 
***************** 



****J1******4«* 

¥ i 

> EXIT < 
» * 

»••*****•**••*• 



»L/*2 



***•*£ 2* •*••**♦* 

->4 SET ON LR 

* 

**************** 



***4D2*** ****** 
» • 

> EXIT i 

•********•*•••* 

TOf INPUT 

NAtNtlNE 
CE/01/A2 



»**»»C3******«**# 






• IOCB INTO XR2 * 

• * 
A**************** 



: .:ft'cfliK. 



***** 

' H3 * * 

' • ¥3 *-5 

••••• * 
*•** 



*****E3 •••••••• a* 

NCR! 
TEXT 



:Ifieo *'.' 

FILC .* 



*****C5***+***** 



*, 



EOF 

.*' 
>• •• 
• YfS 



05 



. • ASCENDING •- NO 
• ,SEO-SPECIFIED.* : 



• *•* 

* * 

* C4 • 

•*•* 

CHOI €4 >. 

6* *. 

• ■ •. 

NEXT *. NO 



' I -•■....-" I 



***• 

• • 

• J5* 



• . FILE .* • *. HZ > Si .•— j 

*. PRIMARY .* I ♦. .+ J 

•. .* •- .• 

•• .* V *• •* V 



* * *••* 

► C« • * • 
» • * F5 *-> 
*•*• * * 

***» 



• KJ* 



f 3 *. 
* NEXT •. 

IOCB A *. YES 

PRIMARY .* 

FILE .* 



• NO 



• NO **FILE NOT AT*. 
E3 *< *. EOF OR 

• •. CLDSCO .* 



• *** 

• * 

• M3 •-> 

• * 
•••* 

****** 3* 



• VFS 



*****F4********** 

* • 

* • 

* SET ON LR • 



•BUFFER FULL BIT* 

• * 

»•♦*»**•*****•*•• 



*****J3***4*****4 

" CURRENT • 



• IOCB Af 
*ROCA A1 



«*.**K3*ft*»***« 
' EXIT 



C.H/01 



• **« 1 

• * f 

• M *->! 

• * I 

V 

****£«,•««•••••* 

• * 

• EXIT • 

• • 

TO: INPUT MAINLINE 



INPUT *A 

CE/0J/J3 



*****FS********** 



•*** ************* 



****£;********* 
► EXIT * 



(Cl/OL/All 



» js » ■ 

• * J 

***• v 



J5 


* . 




.* *. 




.♦ H2 < OR *. 
*. -SI 


NO 




». .* 


1 


• • .*" 


I 


• • »• 


V 


' VES 


• **• 


**•• 




* • 


• • 




• F5« 


• K5 *-> 




* * 


* • 




***• 


• ••• 






V 

****K5*t*»****4 




• 


* 


• EXIT 


* 


* 


• 


TO: CAU 


i* ****** 
.INC ROUTINE 
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HULTIPLB PILES RITB 
9ATCHIKC FIELDS 



t»#*11#******** 

> I 

• EHTBY * 

* n 
«******«**«*+** 



*****£ 1 ********** 

• SET OH SHITCH ♦ 

• TO IHITIILIZE ♦ 

• HOLD 18 El 1 * 

: < H?J : 
•*»***+**»»*****• 



'■ MOTE 
••**C1 **•*■*••• 



miTHLIZE HI 



♦ ♦♦♦ 

* * 

• B2 • 



♦ ♦*• 
■ i 

' 63 « 



•BOTE ADDBZSS OF" 

• PfiXHAfiT PILE * 

• COCB IITO XH2 • 

• * 
***************** 



B2 


* , 




B3 *. 


,+SECOHD-*. 




.* *. 


. *ABY PILE JIT*. 


rss 


,« +- HO 


*. EOF OB .* 




♦ . H2 > HI -• — 


*„ CLOSED .* 


7 


*. .♦ 


•. .* 




*. .* 


*_ -* 


T 


*. _♦ 


♦ HO 


***« 


♦ IBS 


1 


• • 


••** 1 




* ji • 


• * 




• • 


• C3 *-> 


1 


**»• 


* * 
**** 


• 




T 


C2 *. 




***«*C3********** 


.•SECOND-*. 




* • 


. • ABT FILE *. 


10 


• * 


*.BATE HATCBIXG.* 


~— -i 


♦BOTE HI IHTO SI* 


•. FIELDS .* 


1 


• • 


♦. .* 




* * 


*. •• 


T 


*•*****•»•**•***» 


• IBS 


**•* 


1 






* * 


• *** 






* P» * 


* • 






• » 


I— >♦ EQ • 






• •*• 


• .* 
• *** 


' 


CH/03/A 


1 




*****D2* ♦*♦♦"♦**"♦♦ 






♦HO YE 00215* 







B« 



B2 - HI 



*. YES 



***#*B5 ********** 

•HOT! 
>*AHD 



*HOTE H2 IHTO SI* 
■~ H2 IHTO S2 * 



t****CI) ********** 
• • 

•BOTE H2 IHTO 51* 
*1ID B2 IITO 52 * 



•HOVE FIELDS 1RD* 
♦CHECK SEQUEHCE • 



***************** 



STOBE XR2 IH 

BOCA HT DISP 

JfDE« 



E2 



SHITCB 
OH 



XO 



•****D4 •*****•**• 

♦ * 

* L01D XB2 HITH • 

: i0C !.$i°H!i ": 



*••* 

* * 

♦ 24 *-> 

• * 
• *** 

.*, 
El *. 
.* ' 

.* 
*. S2 ■ SI 



TES 



*****E5*+** ***** 



SET OH Bfi 
IHDICATOB 



• TBS 



F1 



♦**♦ 

* ■ 

* fd *-> 

* • 
**** 



.♦ PHIKtBT *. TES 
*. FILE EOF OH .•----. 
♦. CLOSBD .♦ | 
♦. .♦ 

♦. .* T 
• |0 **** 

* JI 

***• 


.*. 

G1 ♦, 
.♦ ♦. 
.• HITCHIHG *. HO 

♦. FIELDS OH .♦ . 

♦. PBIHIBT .* I 
♦.PILE .* I 
*. .• T 
* TES **•* 




* F* 

* 
• •** 


•BOTE 


CH/03/A1 
002A5* 


•BOTE FIELDS IITO* 
♦CHECK SEQDEICB * 

* * 


• ••• 

* • 

* JI «-> 

* * 

• •*• 




«*«**j1 ********** 

* * 
♦BOTE ADDBESS OP* 
•SEXT IOCB IHTO * 

* XB2 • 

* • 



•SET SHITCB OPF • 



P3 



•, HO 

82 < HI .* ' 



,•'* I 



' JI ' 

► < 



**•*<; 3** •*•***•* 

* 

BOTE H2 IHTO Bl* 



* SET OFF BB 

♦ IHDICATOB 



•«*i***«*i**«ii* 



*** *•£(!* ******** 

* stobe ra2 ih 

•X*9A* AHD X*9B» 



EXIT 



TO: IHPDT 

HAIHLIB1 

ci/02/j: 



•*«**H3 ********** 

* STOBE XH2 IH • 
•SECOHDABT HOHX • 

• AHEA AT DISP • 

♦ X«DB' ♦ 



• *•• 
>* JI " 



* 

• EXIT 



TO: EOJ CHECK 

cn/03/iB 



• PRIHABT ♦. TES 
IOCB .* 



H2 *, 

.* *. 

_• PHIHAHY *. HO 

'>*. FILE EOF OB _• — 

•- CLOSED .« 



CH/03/11 
***** K3 •••**»**•* 

•BOTE 002A5* 
*_- , , — .-* 

->«flOTE FIELDS AHD* 
•CHECK SBQOBHCE • 



HOTE: HI COHTAIHS X'PP'S 
IF HITCH FIELDS II 
ASCEiDlBG SEgUEHCE 
OR X'OO 1 IF 
DBCBHDIHG SEQUENCE 



• B2 • 



I *••• 
U>* C3 ♦ 



C3 
* 
• ••* 



' B3 * 
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* ENTRY ■ 

¥ i 

•*••*%*****•*«• 



LR 

INDICATOR 

ON 



yes 



■ H3 » 

i t 
**** 



•PRC 

* ROC A INTO XRL • 

+•»*•*•*«•******* 



• * 

•S£T OFF BUFF6R • 

: «%*r l * : 

• • 
**••**»****•***** 



* SET ON RECORO • 

♦ TV»E * 



.* bsca 



.•.COMPILER*** 



.* WITH CON- •„ NO 

. V€RSATIONAL .* 

*. R-EPLY .* 



ff» 



TO • 

AND* 

YPE * 



••a************** 



-COMPILER**' 



+ . PROGRAM . 
*• • * 

** •* 
• YES 



**+• 

•*** 



♦CONTROL*. •••• 

fielosHn *. NO * * 



*. ftfiCOAD 

> ** 

• YES 



83 



•**• 
> * 

i 83 * 
i • 

• ••* 



*****e3«**»*«***» 



*PfUM€ WORK AREA* 
* IN ROC* * 



Note 1: This code tests the field record relation indicator. 
If the indicators are on, the fields are moved. If the control 
break is alphabetic, an MVC instruction is used for the 
move. If the control break is numeric, a ZAZ instruction 
is used. If the break is packed numeric, the Unpack sub- 
routine is called. 

Note 2: Control levels are check in descending sequence 
from L9 to L0, 



SEF NOTE] 

*+**#C3* *******»*. 
•SET ON CDNTROL * 



***************** 



10DRE5S OF MOVE* 

iSiirw-BKiisw : 



* tNSTR 



*****P3*******«< 
" CONTROL 
fLOS FROM 



♦auFFEi 



.*WOtiK C *. 
.♦ HLO AREAS *. YF.S 

.OF CNTRL LVL .* 

*. INDRS .* 
*.SAME -• 
*. .* 
* NO 



*****H3**+****««* 



♦SET APPROPRIATE* 

• CONTROL LEVEL 

INDICATOR AND 



•ALL LOWER INDRS* 




•MOVE WORK APFA • 
•IN ROCA TP HOLD* 

• » 

•***•*••**••••*•• 



• *** 

• * 

♦ G4 * 



*»•* 

* • 

* 64 • 



YES .* LR *. 

*. IN01CAT0R .* 

*. ON .* 



.•^ittfi'Wl.. NO 

*. I NOR ON IN .* 

•. ROCA .• 
*. .* 
*. .* 
* YES 



«***«JS*******««* 

* 

* SET ON T 



has..: 



* YES 



•a*************** 



EXIT 



> EXIT « 

• •*'**•*••*****• 



LR AND OVERFLOW 
PROCESSING CONTI 
VIA INPUT » 
CCE/02/D4I 



INPUT MAIM. INI 
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ENTRY 



• * 

• STORE RETURN * 

• AOORESS * 



ft*****.**** ******* 



*+***Cl********»* 

* * 

H.QAO WORK AREA * 
•AOORESS IN XR2 • 



***************** 



' RECORD 
EDENTIFIEQ 



-NO 

,* > + , 



COMPILER**** 
'N .*. 

.." '*.. 

OP CODE *. CHAIN 
SPECIFIFD .* 



•***03********* 

* i 

->* EXIT « 



YES 



• READ 



TC: 



RPC HALT PROCESSOR 
E2/0I/AL 



A**************** 



*****Fi ********** 

• • 

• HCVE RECORC • 
•PARAMETER LIST • 

• TO IOC6 * 



***************** 



****•€ 1 •******»** 

: ^afiPHB : 

• INDICATOR * 

* * 
** * * ******** ***** 



W, 



***** 

* A" 

AO 



-m 



D BOCA * 



Xftli 
•ADO 3 TO RETURN* 
•AQDR TO REREAD * 
•ANOTHER RECORD • 



••**G2*+**4**** 
I EXIT * 



TO! R6AP OPERATION CODF 



,! S&OT 



♦AOORESS OF CODE* 
•FOR HOVE FIELDS*- 

• INTO BRANCH • 

* * 
******»♦*****♦»** 



_m 



ANCH TO ADOR 
MOVE FIELDS 
J1J IS ESTABLISHED 



•****Jl****+***+* 

• BRANCH TO MOVI 
•FIELDS FOR THL 

• RECORD TYPt • 

• • 
***************** 



W- 



INOVE FIELDS FROM 
BUFFER TO OATA 
ARF.A FOR THIS 
RECORD TYPE 



j ex it 

*************** 
TO! 



(DE/01/H3 IF READ! 



Chart CJ, Chain and Read 
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RKTRT 
I 



• *** 
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CALCULATIONS OBJECT CODE 



Use of RPG II Subroutines 



This section discusses the sequence of operations per- 
formed by the object code generated for each permis- 
ible RPG II calculation operation code. Knowledge of 
the following introductory information is required to 
understand the discussions of individual specifications. 



Abbreviations Used in This Section 



ARR 


Address recall register 


DF1 


Number of decimal positions in Factor 1 


DF2 


Number of decimal positions in Factor 2 


DRF 


Number of decimal positions in Result Field 


DTT 


Define the table 


Fl 


Factor 1 (refers to heading on RPG II Calcula- 




tion sheet) 


F2 


Factor 2 (refers to heading on RPG II Calcula- 




tion sheet) 


IAR 


Instruction address register 


10CB 


Input/output control block 


LF1 


Length of Factor 1 


LF2 


Length of Factor 2 


LRF 


Length of Result Field 


RF 


Result Field (refers to heading on RPG II Cal- 




culation sheet) 


ROCA 


Reserved object communications area 


XR1 


Index register 1 


XR2 


Index register 2 



Use of Entire Arrays 

When any calculation specifies an unindexed array as a 
factor, the calculation operation must be performed on 
every element in that array. For example, when moving a 
field to an array, the field must be moved to every ele- 
ment in that array. If more than one array is used in an 
operation, processing is terminated when the end of the 
array with the fewest elements is reached. 



Use of Tables 



Library subroutines used by the object program are 
selected by Pre-Assemble phase $RFMP. During object 
program execution, linkage to each subroutine is done 
with an unconditional branch followed by a parameter 
list. For a flowchart and description of each subroutine, 
including the format of the parameter list, see Library of 
Subroutines. 



UseofXRI 

Index register 1 (XR1) contains the address of ROCA. It 
is always restored to that address if changed by any part 
of the object program. 



Use of Conditioning Indicators 

Conditioning indicators must be set as specified in the 
calculation specifications if each operation is to take 
place. Indicators are tested based on how they are spec- 
ified in the Calculation Specifications sheet. If the indi- 
cator must be ON to perform the operation, a TBN in- 
struction is generated to test the indicator. If the 
indicator must be OFF to perform the operation, then a 
TBF instruction is used to test the indicator. A JUMP 
FALSE instruction is used to bypass an operation. If 
there are any duplicate indicators, the operations they 
condition are bypassed with a JUMP FALSE. For 
example, if three adjacent indicators were: 

01,02 ADD 

01.02 SUB 

02.03 ADD 

The first group of indicators (01 , 02) would be tested. 
But the second group of indicators (01 , 02) would not be 
tested- They would be bypassed using a JUMP FALSE 
instruction, since the second set of indicators is the same 
as the first. The next indicator group tested would be 
02, 03. 



If tables are specified anywhere except as Factor 2 with a 
LOKUP operation, only the last looked-up element is 
used in the operation. If the table is referenced before 
a LOKUP operation, the first element in the table is used. 
For a description of LOKUP, see Library of Subroutines in 
this section. 



Obtaining Addresses Used in Calculations 

The addresses of fields and constants are fixed and are 
available to the Assemble phases when the object pro- 
gram is generated. The individual discussions of calcula- 
tion specifications make no reference to the procedure for 
obtaining the table element or array field addresses unless 
a different procedure is required. For example, a phase 
sets a bit on if the table element address or array pointer 
is moved into some instruction other than the mainline 
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instruction. The addresses of table elements and array 
fields must be obtained by the object program in the 
following manner. 



Table Elements: Moves the address of the last-found (or 
last looked-up) table element from the DTT of the 
referenced table (see Data Areas for DTT description) into 
the address portion of the main instruction. 



Array with Variable Index: Branches to the Array Index 
subroutine with parameters telling the subroutine to move 
the address of the specified element into the address 
portion of the main instruction. 



Array with Integer Index: Treats this array like a field 
since the address of the desired or referenced element is 
calculated at compile time. 

Entire Arrays: Processes every field in the array using a 
program loop to: 

• Initialize the pointer to the array by placing the 
address of the first element of the array given in 
the DTT (see Data Areas) in either an index register 
used by the mainline instruction or in the mainline 
instructions. 

• Process one array field. 

• Add the length of one element to the array pointer. 

• Compare the address contained in the array pointer 
to the address of the last field in the DTT. 

• Branch back to the mainline instruction if all ele- 
ments have not been processed. 



Methods of Preserving Decimal Integrity 

Aligning the Decimal Point: Decimal alignment is neces- 
sary only for addition or subtraction performed in the 
prime work area of ROCA. In addition or subtraction, the 
first decimal position is assumed to be at byte 1 7 in the 
prime work area. 

The compiler generates instructions to initialize the prime 
work area. The prime work area is indexed by XR1 with a 
displacement computed to assure that the first decimal 
position is always in byte 1 7, The displacement is calcu- 
lated by the formula, D = 1 6 + DF1 (D = 1 6, since byte 1 6 



contains the last byte of the factor to the left of decimal 
place). For example, to generate the instruction to move a 
Factor 1 field which is eight digits long with four decimal 
positions (D = 1 6 + 4 = 20), the instruction generation 
would be: 

ZAZ20Q6,XR1XF1(8) 

Displacements for other factors are calculated in a similar 
manner. In multiplication and division, decimal integrity 
is maintained. 



Half Adjusting: Half adjusting in an arithmetic operation 
is meaningful only in the following cases: 

1 . Addition/subtraction - when DRF<DFl or DF2. 

2. Multiplication - when DRF<DF1 + DF2. 

3. Division — all cases. 

4. Square root — all cases. 

After the result is calculated in the prime work area, the 
one digit to the right of the sign position of the result is 
added to itself and the Result Field. For example, a Re- 
sult Field five digits long with three decimal positions is 
calculated to be 1 7.6527. The sign position is the 2 so the 
half adjust operation is as follows: 

17.6527 

7 

17.6534 

The position to the right of the sign is then dropped when 
the result is moved from the work area to the field. 



Retaining the Sign: IBM System/3 arithmetic operations 
are performed on numeric fields in zoned decimal format 
(see Calculation Specification Descriptions, SQRT). The 
sign is always retained in the zone portion of the right- 
most byte of the numeric field. Correct results from 
arithmetic operations depend on the proper location of 
the sign. Thus, before some arithmetic operations can be 
performed on fields of unequal lengths, the sign position 
of one of the fields must be adjusted (shifted left or 
right) to match the sign position of the second field. In 
the same way, if the calculated result contains a different 
number of decimal positions than the Result Field, the 
sign position of the result must be adjusted to match the 
sign position of the Result Field. An MZZ instruction is 
used to move the sign to its proper location. In general, 
if the Result Field contains more decimal positions than 
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either Factor 1 or Factor 2, the prime work area must 
be cleared to binary zeros before the factors are proc- 
essed there. 



Calculation Specification Descriptions 

Calculation specifications are discussed in alphabetical 
order. Conditional instructions, present only in certain 
cases, are enclosed in brackets {[ ]). Notes are included 
where necessary. 



BEGSR 

The BEGSR (begin subroutine) specification signifies the 
beginning of a subroutine written by the RPG II user. The 
main instruction is: 

STORE the ARR in the return branch generated by 
the ENDSR specification. This instruction is followed 
by the object code generated for the user- writ ten sub- 
routine. 



ADD 

The ADD specification causes Factor 1 and Factor 2 to 
be added together and the sum placed in the Result Field. 
The sequence of operations is: 

[CLEAR the prime work area in ROCA to binary 
zeros if DRF is greater than both DFl and DF2.] 

[MOVE the longest factor to the prime work area 
using a ZAZ instruction. If the instruction which 
clears the prime work area is present, an AZ in- 
struction is used instead of a ZAZ instruction.] 

[ADJUST the sign of the moved factor to match the 
sign position: 

1 . The Result Field if either Fl or F2 = RF and 
DFl = DF2. 

2. The shortest factor if DFl = DF2 = DRF.] 



BtTON 

The BITON specification causes the bits specified in 
Factor 2 to be set on in the Result Field. A 1-byte field 
name can be substituted for Factor 2, The bits from that 
byte are then used. A special set of control instructions 
are required if Factor 2 is not a literal and/or the Result 
Field is a table/array tag. The main instruction is: 

SET bits on using an SBN instruction. 



BITOF 

The BITOF specification causes the bits specified in 
Factor 2 to be set off in the Result Held. A 1-byte name 
can be substituted for Factor 2. The bits from that byte 
are then used. A special set of control instructions are 
required if Factor 2 is not a literal and/or the Result Field 
is a table /array tag. The main instruction is: 



SET bits off using an SBF instruction. 



ADD the factors using an AZ instruction. If Fl or 
F2 = RF and the instruction which adjusts the sign is 
present, the factor in the prime work area is added 
directly to the Result Field; otherwise, the factors 
are added in the prime work area. 

[HALF ADJUST the sum.] 

[ADJUST the sign position of the sum to match the 
sign position of the Result Field.] 

[MOVE the sum to the Result Field using a ZAZ 
instruction.] 



CHAIN (Chart DA) 

The CHAIN specification allows direct access to a disk 
file during calculations in the program cycle. The se- 
quence of operations is: 

READ a record by branching to the Input Processing 
Control routine (IPCR). 

BRANCH to the Record ID routine and Move Input 
Fields Mainline to identify the record and move fields. 



Note: See Methods of Preserving Decimal Integrity for a 
discussion of sign adjustment and half adjusting. 



COMP 

The COMP (compare) specification causes Factor 1 to be 
compared to Factor 2* The factors must either be both 
alphameric or both numeric. If one alphameric field is 
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shorter than the other, the shorter field is padded to the 
right with blanks before the compare. Numeric fields are 
aligned according to the decimal point. Short fields are 
padded to the left and right with zeros. 

If an alternate collating sequence is specified, the sequence 
of operation is: 

[BRANCH to the Alternate Collating Sequence sub- 
routine. The branch is followed by parameters (see 
Library of Subroutines). The alternate collating se- 
quence subroutine performs the comparison; no other 
instructions are present for one COMP statement.] 

Numeric fields are compared as follows: 

[CLEAR the prime work area to binary zeros if 
DF1^DF2.] 

MOVE Factor 1 to the prime work area with a ZAZ 
instruction if Dl=D2and subtract Factor 2 from 
Factor 1. If DF1^DF2, the factor with shorter deci- 
mals (either Factor 1 or Factor 2) is moved into the 
prime work area. 

[ADJUST the sign position of the factor in the prime 
work area to match the sign position of the longer 
factor if the instruction which clears the prime work 
area is present.] 

SET the condition register by subtracting the remaining 
factor from the factor in the prime work area. 

BRANCH to the Set Resulting Indicators subroutine. 
The branch is follwed by parameters (see Library of 
Subroutines). 



JUMP not equal around the following instructions to 
the branch instruction. 

TEST the first byte of the longer factor to the right of 
the pointer for a blank using a CLI instruction. 

JUMP, if not a blank, around the following instruction. 

TEST the remainder of the longer field for blanks 
using a CLC instruction. 

Note: The condition register may be set by any of the 
three compare instructions. 

BRANCH to the Set Resulting Indicators subroutine. 
The branch is follwed by parameters (see Library of 
Subroutines). 



DBBUG 

The DEBUG specification provides a source listing during 
program execution of: 

1 . All RPG II indicators that are on. 

2. A literal for identification purposes (optional). 

3. The contents of any one field (optional). The main 
instruction is: 

BRANCH to the DEBUG subroutine. The branch is 
followed by parameters (see Library of Subroutines). 



DtV 



Alphameric fields of equal lengths are compared as 
follows: 

COMPARE the two factors using a CLC instruction 
with the addresses of the factors. 

Alphameric fields of unequal length are compared as 
follows: 

LOAD XR2 with a pointer to a byte in the longest 
factor such that the number of bytes to the left of 
the pointer equals the number of bytes in the shorter 
factor. 

COMPARE the shorter factor to the bytes in the 
longer factor to the left of the pointer using a CLC 
instruction. 



The DIV (divide) specification causes Factor 1 to be 
divided by Factor 2 with the quotient being placed in the 
Result Field. The sequence of operations is: 

[PLACE the addresses of table elements or array fields 
in the ZAZ instructions which move the factors to the 
prime work area of ROCA.] 

CLEAR the prime work area to binary zeros. 

MOVE Factor 2 to the prime work area using a ZAZ 
instruction. 

MOVE Factor 1 to the prime work area using a ZAZ 
instruction. 

BRANCH to the Divide subroutine. No parameters 
follow the branch (see Library of Subroutines). 
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[HALF ADJUST the quotient.] 

[ADJUST the sign position of the quotient to match 
the sign position of the Result Field.] 

MOVE the quotient to the Result Field using a ZAZ 
instruction. 

Note: See Methods of Preserving Decimal Integrity for a 
discussion of sign adjustment and half adjusting. 

I DSPL Y (Chart DB - Models 6, 10, and 12; Chart EO - 
Model 15) 

The DSPLY specification displays either Factor 1 , Result 
Field, or both on a console device. If the Result Field is 
displayed, the operator is allowed to alter that field. The 
sequence of operation is as follows: 



I Models 6, 10, and 12: Branch to OPCR to: 

1. Print DSPLY. 

2. Display contents of Factor 1 if specified. 

3. Display contents of Result Field if specified. 

4. Place the reply into the Result Field if there is a 
reply. 

Model 15: 

1 . Clear the prime work area of ROCA to binary zeros. 

2. Move Factor 1 to bytes — n of the prime work 
area if specified. 

3. Move Result Field to bytes 36 - n of the prime 
work area if specified. 

4. Set up 2-byte parameter list (see Library of Sub- 
routines). 

5. Branch to DSPLY subroutine. 

Note: If the Result Field is alphameric, it is left justified; 
if the Result Field is numeric, it is right justified. 

ENDSR 

The ENDSR (end subroutine) specification signifies the 
end of a subroutine written by the RPG II user. The main 
instruction is: 



BRANCH to the return address stored by the BEGSR 
statement. Object code generated for the user-written 
subroutine precedes this instruction. 



EXCPT 

The EXCPT (exception output) specification causes 
output to be performed during detail or total calculations. 
The main instruction is: 

BRANCH to the output routine for all exception files. 

Note: Records are built exactly as normal output records 
are built (see Detailed Object Program Flow). 

EXIT 

The EXIT specification causes a branch of the main 
routine to a subroutine. The EXIT specification can also 
be used with the RLABL specification (see RLABL). The 
main instruction is: 

BRANCH to the subroutine specified. The subroutine 
name is resolved by the linkage editor. 

EXSR 

The EXSR (execute subroutine) specification causes a 
branch to be taken to a user-written subroutine for which 
the first and last instructions were generated by BEGSR 
and ENDSR statements. The main instruction generated 
is: 

BRANCH to the subroutine entry point. The compiler 
places the subroutine entry point in the branch instruc- 
tion. 



FORCE (Chart DC) 

The FORCE specification causes the next record for 
processing to be taken from the file specified as Factor 2 
The sequence of operations is: 

LOAD the address of the forced file IOCB into XR2. 

TEST if file is at end of file. If so, jump around next 
statement. 

STORE addreses of the forced IOCB and the file 
IOCB in the prime work area in ROCA. 



4-30 



licensed Material-Property of IBM 



GOTO 

The GOTO specification causes a branch to be taken to 
the specified TAG or ENDSR address. The main instruc- 
tion is: 

BRANCH to the TAG or ENDSR address. The com- 
piler places the TAG or ENDSR address in the branch 
instruction. 



KEY (Model 6 Only} 

The KEY specification allows fields to be keyed from the 
keyboard at calculation time. Alphameric fields are left 
justified, and numeric fields are right justified. Depend- 
ing on what is specified, the operation is treated in one of 
three ways: 

1 . Display Mode — Place keyed field into main 
storage location and display on printer. 

2. Store Only Mode - Place keyed field into main 
storage location (no display). 

3. Manual Mode - Keyed field is displayed (doesnt 
go into main storage). 

Each KEY specification requires the following code: 

MOVE parameters to the DTF 

LOAD IOCB address into XR2 

BRANCH to IPCR 

If there are resulting indicators, the following code is 
generated for a numeric field before the branch to the 
Set Resulting Indicator routine: 

• 1-byte field 

[LOAD the field address into XR2] 
[ZAZ the field to set the condition code] 

• Greater than 1-byte field 

[LOAD the field address into XR2] 

[ADD to register so it points to right end minus 1 
of field] 

[ZAZ the field to set the condition code] 



[JUMP past following DC] 
[DC a 2-byte constant of field length minus 2] 
The following code is generated for an alphameric field: 

• 1-byte field 

[LOAD the field address into XR2] 
[CLI the field to set the condition code] 

• Greater than 1-byte field 

[LOAD the field address into XR2] 

[ADD to register so it points to right end minus 
1 of field] 

[CLI rigit byte of field to test for a blank] 

[JNE around next CLC] 

[JUMP past following DC] 

[DC a 2-byte constant of field length minus 2] 

If the KEY field is an array element or a table element the 
following code is generated first: 

[SLC to adjust the right hand element address 
(as determined by array control to the left hand 
element address) to be used by the rest of the 
KEY object code] 

For SET/KEY combinations, see the description of the 
SET operation code in this section. 

LOKUP (Chart DD) 

The LOKUP (look-up) specification causes elements of the 
table or array specified as Factor 2 to be compared against 
a field specified as Factor 1 until the user-specified setting 
of the condition register is reached. The sequence of 
operations is: 

SET off resulting indicators. 

MOVE the address of the last found element to the 
LOKUP parameter list if Factor 1 is a table. If Factor 
1 is an array with variable index: 
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1 . Branch to the Array Index subroutine 

2. Store the calculated array element address in the 
LOKUP parameter list. 

BRANCH to the LOKUP subroutine. 

SET on the appropriate resulting indicator if the de- 
sired conditions have been met. 



MHHZO 

The MHHZO (move high-high zone) specification causes 
the zone portion of the leftmost byte of Factor 2 to be 
moved to the zone portion of the leftmost byte of the 
Result Field. The sequence of operations is: 

[OBTAIN the address of the leftmost byte of array 
fields or table elements. If only one factor is an array 
or table element: 

1 . Load XR2 with a negative constant, 1 minus L, 
where L is the length of the field. 

2. Add the field address XR2. If both factors are 
arrays or table elements, the preceding procedure 
is used for Factor 2 along with these instructions: 

a. Load XR1 with a negative constant, 1 minus 
LRF. 

b. Add the address of the Result Field to XR1 .] 

MOVE the zone portion of the leftmost byte of Factor 
2 to the zone portion of the leftmost byte of the 
Result Field using an MZZ instruction. 

[RESTORE XR1 .] 



MHLZO 

The MHLZO (move high-low zone) specification causes 
the zone portion of the leftmost byte of Factor 2 to be 
moved to the zone portion of the rightmost byte of the 
Result Field. The sequence of operations is: 

[OBTAIN the address of the leftmost byte of Factor 2 
as follows if Factor 2 is an array or table element: 

1 . Load XR2 with a negative constant, 1 -LF2. 

2. Add the field address to XR2.] 



MOVE the zone portion of the leftmost byte of Factor 
2 to the zone portion of the rightmost byte of the 
Result Field using an MZZ instruction, 

MLHZO 

The MLHZO (move low-high zone) specification causes 
the zone portion of the rightmost byte of Factor 2 to be 
moved to the zone portion of the leftmost byte of the 
Result Field. The sequence of operations is: 

[OBTAIN the address of the Result Field as follows 
if the Result Field is an array or table element: 

1 . Load XR2 with a negative constant, 1 minus 
LRF. 

2. Add the field address to XR2.] 

MOVE the zone of the rightmost byte of Factor 2 to 
the zone of the leftmost byte of the Result Field using 
an MZZ instruction. 



MLLZO 

The MLLZO (move low-low zone) specification causes 
the zone portion of the rightmost byte of Factor 2 to be 
moved to the zone portion of the rightmost byte of the 
Result Field. The main instruction is: 

MOVE the zone portion of the rightmost byte of 
Factor 2 to the zone portion of the rightmost byte of 
the Result Field using an MZZ instruction. 



MOVE 

The MOVE specification causes the specified Factor 2 to 
be moved into the Result Field. If the Result Field is 
shorter than Factor 2, the leftmost bytes of Factor 2 are 
truncated. The main instruction is: 

MOVE Factor 2 to the Result Field using an MVC 
instruction. 

Note: If the Result Field is numeric, a ZAZ instruction 
is used instead of an MVC instruction. 
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MOVE A 

The MOVE A (move array) specification causes characters 
from Factor 2 to be moved to the leftmost positions of 
the Result Field. If the Result Field is shorter than 
Factor 2, the excess rightmost bytes of Factor 2 are not 
moved. If the Result Field is longer than Factor 2, the 
characters to the right of the data moved to the Result 
Field will remain unchanged. The sequence of operations 
is: 

BUILD the ten-byte parameter list which follows the 
branch instruction (see Library of Subroutines). 



MOVE the sign of Factor 2 to the sign position of the 
Result Field using an MZZ instruction if the Result 
Held is numeric and Factor 2 is longer than the 
Result Field. 

[FORCE the sign position (zone portion of the right- 
most byte) of the result field to an F zone using an 
SBN instruction, unless the sign of Factor 2 is minus; 
then FORCE the sign position of the result field to a D 
zone using a SBF instruction.] 



MULT 



BRANCH to the MOVEA subroutine. 

SET the move length to the shorter of the Factor 2 
and Result Field lengths. 

DETERMINE the proper addresses. 

MOVE Factor 2 to the Result Field, using an MVC 
instruction. 

Note: Either Factor 2 or the Result Field must reference 
an alphameric array. However, both Factor 2 and the 
Result Field cannot reference the same array. 



MOVEL 

The MOVEL (move-left) specification causes characters 
from Factor 2 to be moved to the leftmost positions of 
the Result Field. If the Result Field is shorter than Factor 
2, the excess rightmost bytes of Factor 2 are not moved. 
The sequence of operations is: 

[ADJUST the address of the longer field to assure that 
the leftmost bytes of the Result Field are filled by the 
equal number of leftmost bytes of Factor 2 
(LF2*LRF): 

1 . Load XR2 with a negative constant, LS minus 
LL, where LS is the length of the shorter field 
and LL is the length of the longer field. 



The MULT (multiply) specification causes Factor 2 to be 
multiplied by Factor 1 with the product being placed in 
the Result Field. The sequence of operations is: 

[PLACE the address of field, table, or array elements 
in the ZAZ instructions which move the factors to or 
from the prime work area in ROCA rather than in the 
main instruction itself.] 

MOVE Factor 1 to the prime work area using a ZAZ 
instruction. 

MOVE Factor 2 to the prime work area using a ZAZ 
instruction. 

MOVE length parameter to the prime work area using a 
MVI instruction (Model 1 5 only). 

BRANCH to the Multiply subroutine. No parameters 
follow the branch (see Library of Subroutines). 

[HALF ADJUST the product.] 

[ADJUST the sign position of the product to match 
the sign position of the Result Field.] 

MOVE the product to the Result Field using a ZAZ 

instruction. 

Note: See Methods of Preserving Decimal Integrity for a 
discussion of sign adjustment and half adjusting. 



2. Add the address of the longer field to XR2.] 

MOVE Factor 2 to the Result Field using an MVC 
instruction. 

Note: If the Result Field is numeric, a ZAZ instruction 
is used instead of an MVC instruction. 
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MVR 

The MVR (move remainder) specification causes the re- 
mainder of the preceding DIV operation to be moved to 
the specified field. The sequence of operations is: 

[ADJUST the sign position of the remainder to match 
the sign position of the Result Field] 

MOVE the remainder to the Result Field using a ZAZ 
instruction. 



READ (Chart DE) 

Tne READ operation code calls for immediate input from 
a demand file during calculations in the program cycle. 
The sequence of operations is: 

READ a record by branching to the Input Processing 
Control routine (IPCR). 

BRANCH to the Chain and Read subsegment to 
identify the record and move fields. 

Note: If the continue option is taken on the un- 
identified-record halt, another record is read imme- 
diately from the demand file. 



RLABL 

The RLABL specification generates a 3-byte parameter 
list for each field and array /table and each indicator 
with IN followed by two letters of a valid indicator 
(example: INL3). The parameter list is used by the user- 
coded subroutine used with EXIT. The sequence of 
operations is: 

BRANCH to a user-coded subroutine. 

USE and check the RLABL parameter list. 

RETURN to the next sequential instruction after iht 
RLABL parameter list. 



SET (Model 67 

The SET specification allows control of the printer 
through spacing, skipping, and positioning the print ele- 
ment and through setting command key indicators on or 
off. If more than one function is specified, the printer 
control code is generated before the command key code. 



The following code is generated for printer control: 
MOVE parameters to DTF 
BRANCH to OPCR 

The following code is generated if command key indi- 
cators are specified: 

LOAD IOCB address into XR2 

MOVE parameters to DTF 

BRANCH TO IPCR 

BRANCH to command key indicator set routine 
followed by a parameter pointing to the allowed 
command keys and the depressed command keys. See 
Parameters to Data Management in this section for 
more information about the parameters. 

The following code is generated for ledger card eject: 

MOVE eject parameter to the DTF 

BRANCH to OPCR 

Tab sets are built into a table and followed by KEY, 
which has a parameter pointing to the table. 

The special SET/KEY combination will cause the 
allowed command keys from the SET to be placed in ihe 
KEY parameters. This eliminates the above command 
key code except for branch to the Indicator Set routine 
allowing both functions with one program start. 

SETLL 

The SETLL (set lower limit) specification causes the 
content of Factor 1 to be moved to the low key limits 
area associated with the file being processed by limits 
given in Factor 2. EOF conditions are set in the DTF to 
indicate to Data Management that a new set of limits 
must be defined on subsequent read operations to the 
specified file. An EOF condition is also set off in the 
appropriate IOCB for IPCR considerations. The sequence 
of operations is: 

PACK the contents of Factor 1 (if the key is in unpacked 
format and requires packing) via a branch to the Pack 
routine. 



MOVE Factor 1 to the low key area, using a MVC 
instruction. 
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MOVE the EOF condition to the DTF, using an MVI 
instruction and a X*42' mask. 

SET off the End of File bits in the IOCB, using the 
SBF instruction and the X'80' mask. 

SET on the indicator bits in the DTF to indicate to 
Data Management to check for EOF using an SBN 
instruction and the X'W mask. 



SETOF 

The SETOF (set indicator off) specification causes the 
specified RPG II indicators to be set off. The main in- 
struction is: 

SET an indicator off by using an SBF instruction. 
One SBF instruction is present for each indicator 
specified in the SETOF specification if no optimization 
can be performed. If a command key indicator is set 
off, additional instructions LIO and DC axe added for 
each indicator to turn off the associated command key 
light(s) on the console. 



SETON 

The SETON (set indicator on) specification causes the 
specified RPG II indicators to be set on. The main in- 
struction is: 

SET an indicator on using an SBN instruction. One 
SBN instruction is present for each indicator specified 
in the SETON specification if no optimization can be 
performed. 



SUB 



The SUB (subtract) specification causes Factor 2 to be 
subtracted from Factor 1 with the result being moved to 
the Result Field. Hie sequence of operations is: 

[CLEAR the prime work area in ROCA to binary zeros 
ifDRF>DFlandDF2.} 

MOVE Factor 1 to the prime work area using a ZAZ 
instruction. If the instruction which clears the prime 
work area is present, an AZ instruction is used instead 
of a ZAZ instruction. 

[ADJUST the sign position of Factor 1 to match the 
sign position of Factor 2.] 

SUBTRACT Factor 2 from Factor 1 using an SZ 
instruction. 

[ADJUST the sign position of the result to match the 
sign position of the Result Field.] 

[MOVE the result of the Result Field using a ZAZ 
instruction.] 

Note: See Methods of Preserving Decimal Integrity for a 
discussion of sign adjustment and half adjusting. 



7-46 

The TAG specification signifies a point to which any 
GOTO statement may branch. No object code is gener- 
ated for this statement. 



TESTB 



SQRT 

The SQRT (square root) specification causes the square 
root of Factor 2 to be placed in the Result Field. The 
main instruction is: 

BRANCH to the SQRT subroutine. The branch is 
followed by parameters (see Library of Subroutines). 
The parameters built by compiler phase SRPQF tell 
this subroutine how to adjust the size of the source 
field (Factor 2) to the size needed by the Result Field. 
For every decimal and whole number in the Result 
Field, two decimal places and whole numbers are 
needed in the source field. 



The TESTB (test bits) specification causes the bits speci- 
fied in Factor 2 to be tested in the Result Field. A 1-byte 
field name can be substituted for Factor 2. Trie bits from 
that byte are then used. A special set of control instruc- 
tions are required if Factor 2 is other than a literal and/or 
if the Result Field is a table or array with variable index. 
If all bits are off, an indicator in columns 54-55 is set on. 
If all bits are on, an indicator in columns 58-59 is set on. 
If the bits are mixed, an indicator in columns 56-57 is set 
on. The main instructions are: 

TEST bits on or off using a TBN or TBF instruction. 

JUMP true or false (JT or JF). 



SET on the RPG II indicators as specified using a 
SBN instruction. Indicators are set off if the condition 
does not exist. 
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TESTZ 

The TESTZ (test zone) specification causes the leftmost 
byte of an alphameric Result Field to be tested. Resulting 
indicators are used to determine the results of the test. 
The zone portion of the + and A through I characters 
causes the plus indicator to be set on. The zone portion of 
the -(minus) and J through R characters causes the minus 
indicator to be set on. All other characters, when tested, 
cause the blank indicator to be set on. The sequence of 
operations is: 

[OBTAIN the address of the array or table element 
specified as the Result Field as follows: 

1 . Load XR2 with a negative constant, 1 minus 
LRF. 

2. Add the field address to XR2.] 

MOVE the leftmost byte of the Result Field to the 
prime work area in ROCA. 

BRANCH to the Test Zone subroutine. No parameters 
follow the branch (see Library of Subroutines). 

| TIME (Mode/15 Only) 

The TIME specification causes the TIME, or TIME and 
system DATE to be placed in a field, indexed array element, 
or table entry. Where it is placed depends on the 6 or 12 
byte numeric result field. The sequence of operations is: 

1 . Point XR2 to the beginning of ROCA. 

2. Move a flag byte of to byte of ROCA requesting 
the time and date in decimal units. 

3 . Place time and system date in bytes 1 -1 2 of ROCA 
using Supervisor call with TIME of day RIB request 
QC96'). 

4. Move the requested 6 or 12 bytes from ROCA to the 
result field. 



Note: Normal array loop control is present. The main 
instruction is executed for each field in the array. 

[HALF ADJUST the sum.] 

[ADJUST the sign position of the sum to match the 
sign position of the Result Field.] 

MOVE the sum to the Result Field using a ZAZ 
instruction. 

Note: See Methods of Preserving Decimal Integrity for 
a discussion of sign adjustment and half adjusting. 



Z-ADD 

The Z-ADD (zero and add) specification causes Factor 2 
to be added to the Result Field after the Result Field is 
set to decimal zeros. The sequence of operations is: 

MOVE Factor 2 to the prime work area in ROCA 
using a ZAZ instruction. 

[HALF ADJUST Factor 2.] 

[ADJUST the sign position of Factor 2 to match the 
sign position of the Result Field.] 

MOVE Factor 2 to the Result Field using a ZAZ 
instruction. 

Note: See Methods of Preserving Decimal Integrity for a 
discussion of sign adjustment and half adjusting. 



ZSUB 

The Z-SUB (zero and subtract) specification causes the 
negative value of Factor 2 to be placed in the Result Field. 
The sequence of operations is: 

CLEAR the prime work area in ROCA to logical zeros. 

SUBTRACT Factor 2 from the prime work area using 
an SZ instruction. 



XFOOT 

Ihe XFOOT (crossfoot) specification causes all fields in 
an array specified as Factor 2 to be added together. The 
result is placed in another field specified as the Result 
Field. The sequence of operations is: 

CLEAR the prime work area to binary zeros. 

ADD a field of the array to the prime work area. 
4-36 



[HALF ADJUST the result.] 

[ADJUST the sign position of the result to match the 
sign position of the Result Field.] 

MOVE the result from the prime work area to the 
Result Field. 

Note: See Methods of Preserving Decimal Integrity for a 
discussion of sign adjustment and half adjusting. 
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Chart DE. READ Operation Code 



Some RPG II functions and data conversions are per- 
formed by subroutines rather than by in-line sequential 
instructions. For example, multiplication is performed by 
the Multiply subroutine and table Gles are loaded by the 
Load Object Tables subroutine. The subroutines reside 
in the object library during compilation. They are selected 
by the Pre-Assemble and Assemble phases and included 
in the object program overlay segments by the Overlay 
phases. 
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Ihe entry point to each subroutine is the last four 
characters of the phase name. The exit from each of the 
subroutine is to the calling routine. Figure 4-3 shows the 
object program flow of the subroutines. 
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Input 



Process 



Output 



( *"" ) 



• Array to be searched. I 

• Address in ARR which points to the 
following 7-byte parameter list: 

Byte Contents 

0-1 Address of DTT. 

2-3 Address of index. 

4 Length minus one of index, 

5-6 Destination of calculated address 

of specified entry. 



O 



I 



ttPGAA Chart: EA 

Array Index Subroutine 

Retrieves address of the nth field in an array, where n is the 
value of the index in en input, calculations, or output-format 
specification. This subroutine is used when a specified field in 
an array is required. 



I 



Address of the specified array field in the 
2-byte area pointed to by bytes 5-6 of the 
parameter list. 



( Return j 



C 



Enter 



Address of ROCA in XR1 [ 



> $$PGAB 



Address of the IOCB in XR2 

Buffer length in the IOCB 

Translate table 

Switch in ROCA at XTF' to tell if this 
call is to translate input or tramlBte 
output: 

X W - Input 
X*87* = Output 



I 



; 



Chert: EB 



File translate Subroutine 

Replaces characters in an entry in the translate table. The 
first character of each 2-byte element in the table is compared 
against the Input data in the input buffer. When a comparison 
is found, the second byte of the translate table is replaced 
by the first byte. For output the first byte of the translate 
table is replaced by the second byte. 



C 



I 



^> Translated buffer 



Return 



) 



C 



Enter 



Byte 
0-1 



2-3 



XR1 points to ROCA I 

First 130 bytes of the prime word ares 

in ROCA 

ARR which points to a 8-byte parameter 

list in this format: 
Contents 

Rightmost address of the number 
to be processed 

Rightmost address of the resulting 
root 

Length minus one of field to be 
processed in bits 0-3 and length 
minus one of result field in bits 
4-7 

Number of places to adjust decimal 
positions of the field to be pro- 
cessed 

Number of places to adjust decimal 
positions of the field after square 
root completed 

Number of places to adjust source 
to find proper result 



z> 



I 



) 



$*PGAC Chart: EC 

Square Root Subroutine 

Finds the square root of any zoned decimal number with or 
wtthout decimal places by finding the number of significant 
digits in the source and squaring successively smaller numbers 
until the exact root Is found. The result is automatically 
half adjusted . 



I 



^> The result is placed in the address located ir 
bytes 3-4 of the parameter list. 



( Return ] 



Note 1 : SQRT requires adjusting the source 
fields to fit the result field. For every 
decimal and whole number in the 
result field, there must be two 
decimals and two whole numbers in 
the source field. In-Hne object code 
sends parameters to the Square Root 
subroutine telling how to adjust the 
source field (reduce it or enlarge it). 
The maximum length a source field 
can be adjusted to is 30 bytes. 



Figure 4-3 (Part 1 of 9). Library of Subroutines 
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Input 



Process 



Output 



f Enter J 



BSCA pre-open DTF [ 
Translate table 



y 



$$PGBB Chart: ED 

BSCA Logic for Transmit and Receive 

■ Places table element address into the BSCA pre-open 
DTF if the table element address was specified for Dial 
Number or Station IDs on the telecommunications 
specifications. 

• Translates station I Ds using the translate table, if f He 
trsmletion was specified for the BSCA file. 



Updated BSCA pie-open DTF 
Translated Station IDs 



C 



Return 



) 



( Enter J 



BSCA pre-open DTF 
Translate table 



^> $$PGBC 



I 



Chart: EE 



BSCA Logic for Conversational 

• Places table element address Into the BSCA pre-open 
DTF If the table element address was specified for dial 
number or station IDs on the telecommunications 
specifications. 

• Translates station IDs to USA Standard Code for 
Information Interchange (ASCII) by using the trans- 
late table, if ASCII is specified on the telecommunica- 
tions specifications. 



BSCA pre-open DTF | 
Translate table 



^> $$PGBG 



I 

f Return J 

( Enter ) 



Updated BSCA pre-open DTF 
Translated station IDs 



Chart; EF 



BSCA Logic for Receive 

• Places table element address into the BSCA pre-open 
DTF if the table element address was specified for dial 
number or station IDs on the telecommunications 
specifications, 

■ Translates station IDs to USA Standard Code for 

Information Interchange (ASCII) by using the translate 
table, If ASCII is specified on the telecommunications 
specifications. 



Updated BSCA pre-open DTF 
Translated station IDs 



Address in ARR which points to the following \_ 
5-byte parameter list: 



> S$PGBI 



Byte 


Contents 


0-1 


Rightmost address of the decimal 




field. 


2-3 


Displacement from XR2 of the 




rightmost part of the binary field. 


4 


Binary length minus one in bits 




0-3 and decimal length minus one 




in bits 4-7. 



c 
c 



Return 



; 



Enter 



I 



Chart: EG 



Convert to Binary Subroutine 

Converts a decimal number to its binary equivalent. 



C 



A 2-bytt or 4-byte binary number in two's- 
complement notation (a 1 to 4-digit decimal 
number converts to a 2-byte binary number and 
a 5 to 9 digit decimal number converts to a 
4-byte binary number). If the decimal number 
is larger than what can be contained In four 
bytes, only the overflow portion is shown. 



Return 



3 



Figure 4-3 (Part 2 of 9). Library of Subroutines 
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Licensed Material-Property of IBM 



Input 



Process 



Output 



c 



Address in ARR which points to the following [ 
5-byta parameter list: 

Byte Contents 

01 Displacement of input from XR2 

2-3 Address of converted decimal 

number. 
4 Length minus one of the decimal 

number 



O 



Enter 



I 



3 



SSPGBO Chart: EH 

Convert to Decimal Subroutine 

Converts a binary number to its decimal equivalent. (The 
length will be either X W or X W depending on the sire of 
the field specified in the extension or input specifications. 
If the size h two bytes binary, then the length will be 
X'09'. If the number is larger than what can be contained 
in four bytes, only the overflow portion is shown.) 



[*> A sloped decimal number located at the address 
specified by bytes ^4 of the parameter list. 



c 



I 



Return 



J 



C Enter J 



• BSCA pre-open OTF [ 

• Translate table 



> 



E 



$$PGBP 



Chart: El 



BSCA Logic for Transmit 

• Placet table element address into the BSCA pre-open 
DTF if the table element address was specified for dial 
number of station IDs on the telecommunications 
specifications, 

• Translates station I Dt to USA Standard Code for 
Information Interchange {ASCII} by using the translate 
table. If ASCII is specified on the telecommunications 
specifications. 



I 



• Updated BSCA pre-open OTF 

• Translated station IDs 



Return 



c 



Enter 



The ARR points to a 2-byte address that points 
to the DTF where four bytes tell which keys 
are allowed and which keys have been pressed. 
For more information about the DTF, see IBM 
$yst*m/3 Disk Systems Data Management and 
input/Output Supervisor Logic Manual. 
SY21-0512. 



I 



SSPGCB 



Chart: EJ 



(Model 6f Z^^> Proper command key indicator settings 



Commend Key Indicator Set Routine 



Sets of fallowed command key indicators and then sets on 
any of the indicators that hed their associated command key 
LS pressed. 



C 



I 



Return 



Enter 



ARR which points to a B-byte parameter 
list following the branch in this format: 







Byte 
0-1 



2-3 



Contents 

Displacement from XR2 of the 

rightmost address of the packed 

field 

Addresser the unpacked decimal 
number 

Length minus one of the unpacked 
decimal 



I 



3 



&PGCI Chart: EK 

Unpack Subroutine 

Converts a packed decimal field with a maximum length of 
eight bytes to a signed unpacked decimal field up to IS bytes 
long. 



^Unpacked decimal field in the location specified 
In bytes 3-4 in the parameter list. 



C 



I 



Return 



J 



Figure 4-3 (Pail 3 of 9). Library of Subroutines 
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Input 



Probui 



Output 



ARR which points to a 5-byte parameter list: \_ 

Byia Contents 

0-1 Address of the field to be packed 

2-3 Address of the packed field 

displacement from XR2 

4 Pecked length minus one in bits 0*3 

and unpacked length minus one in 
bits 4-7 



c 



Enter 



y 



I 



$$PQC0 Chart: EL 

Pack Subroutine 



Converts en unpacked decimal field up to 15 bytes long Into a 
pecked field with a maximum length of eight bytes. The sign 
is maintained. 



Packed decimal field with a maximum length 
of eight bytes at the location specified by 
bytes 3-4 in the parameter list: 



c 



Return 



J 



Address in ARR which points to a variable C 
length (7-1 6 bytes) paramenter list: 



Byte Contents 

X'OO' » Mo options used for 

record 1 

X'OT = Literal identification used 

X'02' = Field value option used 

X'04' - Field is numeric 

X'06* = Field rs an array 

X'10'= Field is a table 

X'20' = Array is indexed by an 
integer 

X'40' - Array is indexed by a 
variable field 
1-2 Address of input/output control 

block 
3-4 Address of Output Processing 

Control routine 
5 Length minus one of literal, if 

specified 
6-7 Address of literal, if specified, or 

statement number of DEBUG 

operation code in pro-am (bytes 

5 and 6 only) 
8 length minus one of field, if table 

specified, or length minus one of 

dement, if array specified 
9-10 Address of field, rf specif ted, or 

address of DTT. if array specified 
11-12 Address of variable index for array 

13 Length minus one of Index field 

14-15 Address of Array Index subroutine 

The statement number of the DEBUG operation 
code is two bytes long {bytes 5 and S). The re- 
maining bytes are shifted left one byte if they 
are applicable to the program. 



Two alphameric fields to be compared. 
Address of ROCAinXRI. 
Alternate collating sequence table 
associated with the fields. 
Address in ARR which points to the 
following 6-byte parameter list: 



Byte 


Contents 


0-1 


Address of leftmost byte of first 




field. 


2 


Length minus one of first field, 


3-4 


Address of leftmost byte of second 




field. 


5 


Length minus one of the second 




field. 



2f 



[ Enter J 



SSPGDC Chart: EM 

DEBUG Subroutine 

Produces either one or two records depending upon the 
parameters passed by object code generated In Assemble 
phase RPQV. One record contains a list of alt indicators 
which are'on at the time the DEBUG operation code was 
encountered. The second record shows the contents of any 
one field, array, array element, or table element. 



C 



I 



Record 1 in this format: 



Return 



D 



Byte 

0-7 

8-15 

16-17 
18-33 



Contents 

•DEBUG' 

Constant entered in Factor 1 or the 
statement number of the DEBUG 
operation code in the program 



Blank 

'INDICATORS 0N-* 

34 The names of all indicators on. 

Each is separated by a blank. The 
number of bytes used depends on 
how many indicators are on. More 
than one record may be needed. 

• Record 2 in this format if a result field 
is specified: 

Byte Contents 

0-13 'FIELD VALUE* or TABLE 

VALUE" or 'ARRAY VALUE' 

14 The contents of the Result field or 

table/array (up to 256 characters 
per element). More than one 
record may be needed. 



c 



Enter 



I 



$$PGDI Chart: EN 

Alternate Collating Sequence Subroutine 



Comperes two alphameric fields when one or both are not 
in normal collating sequence. 



-High, low, or equal setting of the condition 



c 



Return 



} 



Figure 4-3 (Part 4 of 9). Library of Subroutines 



licensed Material-Property of IBM 



Input 



Proem 



Output 



c 



Enter 



D 



XRl poirm to ROC A 



ARR points to a 2-byte parameter list in the follow- 
ing format: 



Byte 


Bit 


Contents 







Flag byte 







1 - Factor 1 preterit 




1 


Not wed 




2 


Not used 




3 


Not used 




4 


1 - Result field preterit 




5 


= R/F alphameric 

1 = R/F numeric 




6 


Not used 


1 


7 


Not used 

Result Field length (length - 1] 



$$PGDP [Model 16 Only) Chart: EO 
Display Subroutine 

Sets up a parameter list and branches to SYSLOG trans- 
Lent to display the contents of the buffer which contains 
the data. Upon return from SYSLOG, the subroutine 
will return to the calling routine if only Factor Iwwto 
be displayed. If the Result Field was displayed, the 
response is checked, adjusted, and placed In bytes 0-35 
of the work area before returning to the calling routine. 



• If Factor 1 present only, no output 

• If Result Field present, updated result 
field data In bytes 0-35 of ROCA. 



C E -- r ) 



ARR which points to a 26-byte parameter list 



BP» 


Bit 


Contents 




Number of entries per record 


2-3 




Number of entries per table/array 


4-5 




Address of the IOCB 


6 




Length of element in the 
input record 


7-8 




Rightmost address of the 
first table/array entry 


9 




Length of the table/array 
in storage 


10 




Type mask for primary 

table/array 







1 = Ascending 




1 


1 = Descending 




2 


1 = Binary 




3 


1 ■= Packed 




4 


1 - Numeric 




5 


1 = Alternate table/array 


11 




Length of element for 
alternate table/array 


12-13 




Rightmost address of first 
alternate 


14 




Length of alternate table/array 


16 




Type mask for alternate 
table/Brray 







1 * Ascending 




1 


1 - Descending 




2 


1 «= Binary 




3 


1 = Packed 




4 


1 = Numeric 




5 


1 = Alternate table/array 


16-17 




Address of Input 

Processing Control routine (IPCR) 


18-19 




Address of Unpack subroutine 


20-21 




Address of Convert to 
Decimal subroutine 


22-23 




ID of primary table/array 


24-25 




10 of alternate table/array 



SSPGFI 



Chart: EP 



Load Object Tablet Subroutine 



Loads any pra-execution time table/array and rts alternate into 
storage and performs sequence checking. 



C 



I 



^Loaded pre-execution time table/array 



Return 



Figure 4-3 (Part 5 of 9). Library of Subroutines 
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Input 



Output 



c 



Enter 



ARR whi 


:h points 
Bit 


to ■ 28-byte parameter list: \ _,- 


Byte 


Contents 


0-1 




Number of unifies per record 


2-3 




Number of entries per table/array 


4-5 




Address of the (OCB 


6 




Length of element !n the 
input record 


7-8 




Rightmost address of first 

table/array entry 


9 




Length of tha entry in storage 


10 




Type ma«k for table/array 




2 


1 - Binary 




3 


1- Packed 




4 


1 * Numeric 




5 


1 - Alternate 




6 


1 = Device Date Recorder 
{punch/* following dump) 


11 




Length of element for 
alternate table/array 


12-13 




Rightmost address of first 
alternate table/array entry 


14 




Length of alternate table/ 
array in storage 


16 




Type mask for alternate 
table/array 




2 


1 - Binary 




3 


1 = Pecked 




4 


1 - Numeric 




5 


1 = Alternate 




6 


1 = Device Date Recorder 
(punch/* following dump) 


16-17 




Address of Output 

Processing Control routine (OPCR] 


18-19 




Address of Pack subroutine 


20-21 




Address of Convert to 
Binary subroutine 


22-23 




ID of primary tabla/array 


24-25 




ID of alternate uble/erray 



I 



) 



$$PGF0 



Chart: EQ 



Dump Object Tables Subroutine 

Dumps object- time table/array and its a her rate onto the 
appropriate device at last-record ( LR) time if the extension 
specification for this table/array has a To Filename entry 
specified. 



Object-time table/array on the appropriate 
device 



c 



Return 



~) 



c 



Enter 



XR 1 points to the prime work 



The first 62 bytes of the work area contain: 

Byte Contents 

0-1 Sign 

2-33 Dividend 

34-42 Overflow area 

43-57 Divisor 

53-61 Overflow area 

Both divisor and dividend are integers In zoned 
decimal format. 



Divide Subroutine 



I 



) 



Cnsrt: ER 



Divides two numbers in the prime work area of ROCA and 
leaves the quotient and remainder in the prime work area in 
case a MVR operation code follows. 



• The quotient in bytes 0-18 of the prime 
work area 

• The remainder in bytes 19-34 of the 
prime work area 



c 



Return 



J 



Figure 4-3 (Part 6 of 9). Library of Subroutines 
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Input 



Process 



Output 



ARR wtilcti points to an 11-byte parameter list: | * ^> 
Byte Bit Contents 



0-1 




Address of the search 

ergument 


2 




Length minus one of the 
search argument 


3-4 




Factor 2 OTT address 


6-6 




Address of first element to 
be examined 


7 




Length of Factor 2 variable 
Index, If specified 


B-9 




Address of alternate table/ 
array, or Factor 2 variable 
index, if specified 


10 




Conditions on LOKUP 






1 


- Alphameric table/array 

1 « Numeric table/array 

* No alternate table 

1 - Alternate table 




2 


0* Normal LOKUP 
1 - Abnormal LOKUP 
(LOKUP high on de- 
scending table or low 
on ascending table) 




3 


1 » Factor 2 has a variable 
Index which indicates 
which array element is 
to be examined first 




5 


1 - LOKUP high 




8 


1 = LOKUP low 




7 


1 = LOKUP equal 



Cjj_) 



SSPGLC Chart: ES 

LOKUP Subroutine 

Compares a field or search argument against the entries In a 
given table or array until a specified setting of the condition 
register results and returns the address of the table/ array 
element which caused the register to be set. 



c 



Return 



} 



c 



Enter 



3 



If the search Is successful, the address of 
the looked-up element will be placed In 
bytes 5-6 of the array table OTT, I f a 
table was referenced in the result field, 
the address of the corresponding element 
will be placed in bytes 5-6 of the DTT 
for that table. If Factor 2 contained an 
array with a variable index, the index 
will be updated to point to the selected 



If the search was not successful, the array 
table OTTs will not be changed. If a 
variable index was used with an amy in 
Factor 2. that index will be set to one. 



XR1, which points to the prime work area. I 

Displacements X'C7' contain bits indicating 
which lights should be turned on. The format 
of each of these entries h: 



Byte 1 Displacement 


Byte 2 Displacement 


XJC6' 


X'C7' 


Bit = KH 


BitO=KQ 


Bit 1 = KG 


Bit 1 - KP 


BH2-KF 


Bit2*=KN 


Brt3-KE 


Bit 3 - KM 


Blt4-KD 


Bit4-KL 


Blt5-KC 


Bit5-KK 


Bit 6 - KB 


Bit 6 - KJ 


Bit 7 - KA 


Bit 7 => Kl 



$SPGLG Chart: ET (Model 6) 

Command Key Indicator Light Restorer Routine 
Restores command key indicator lights when inquiry is used. 



Command key indicator lights 



c 



Return 



J 



Figure 4-3 (Part 7 of 9). Library of Subroutines 



Object Program 4-47 



licensed Material-Property of IBM 



Input 



Process 



Output 



C Enter J 



XR1 poinw to ROCA. ARR points to a 
] D-by ts parameter list with the following 
format; 

Byte Contents 

Factor 2 flag byte 

If bit - 0, Factor 2 li a field; 
if bit - 1, Factor 2 is an array. 

Bits 1-3 — not used. 

Bit* 4-7 - length of variable index, 
if uted (maximum length -15), 

1-2 If operand it an array and is 

variabley indexed, byte* V-2 
contain the address of the variable 
Index; if operand is an array and 
if not variably indexed, tttey 
contain the address of the refer- 
enced element; if the operand it a 
field, they contain the address of 
the field. 

3-4 If the operand is an array, by tat 

3-4 contain the address of the 
array OTT; if tha operand is a 
field, they contain the eddrest 
of the field 

5 Result Field flag byte 

If bit 0-0. Result Fold is a field; 
if bit D - 1, Result Field is an array. 

Bits 1-3 -not used. 

Bits 4-7 — lenath of variable indax, 
if used (maximum length * IB). 

6-9 Refer to Bytes 1-4. above. 



y 



S3PGMA Chart: EU 

Move Array Subroutine 

Moves daia from a field to an array, from an array to a f iald, 
or from an array to an array. If an array is variably indexed, 
thii routine will calculate the address of the indexed alament. 
Data is moved from Factor 2 to tha Reiult Field; the length 
of the move it the ihor ter of the lengths of Factor 2 and the 
Result Field. 



Factor 2 data (as specif led) 
moved to the Result Field. 



( Return J 



XR 1 points to ROCA. The prime work area fj 
contains: 



Byte 


Bit 


Contents 


20-34 




Multiplier 


35-4S 




Multiplicand 


58 


0-3 


Length- 1 of multiplicand (Model 15) 




4-7 


Sixteens complement of the 
multiplier length (Model 15) 



c 



Enter 



I 



J 



$$PGMC Chart: EVandEW 

Multiply Subroutine 
Multiplies the two Integers in the prime work area in ROCA. 



f Return 1 



Prime work area containing the product in 
bytes 0-33, The sign of the result it left in the 
rone of byte 33. 



Both multiplicand and multiplier are integers 
in some decimal format. See Calculations 
Object Code for discussion of decimal align- 
ment. 



Figure 4-3 (Part 8 of 9). Library of Subroutines 
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Input 



Process 



Output 



ARR which points to a variable length para- |_ 
mater list in this format: 

1 . A variable number of 3-byta entries 
describing each resulting indicator to ba 
set. The formBt of each of these 
entries is: 

Byte Contents 

Condition in program status 
register (PSRJ on which the 
specified indicator should be 
set on 

1 Mask byte by which the speci- 
fied indicator Is selected 

2 Displacement of the indicator 
from the beginning of ROCA 

2. One byte of X'OO* which denotes the end 
of the parameter list. 

3. PS R set to desired condition. 



XR1 points to ROCA which contain* the byte 
to be tested first. 



O 



(~ Enter J 



S$PGRI Chart: EX 

Set Resulting Indicators Subroutine 

Sets specified resulting indicators on or off as required by the 
object program. 



Proper indicator settings. The indicators are 
set off if the condition code is not met and set 
on if the condition code Is met, 



c 



Return 



J 



c 



Enter 



I 



SSPGTC 



Chart: EY 



Test Zone Subroutine 

Tests the zone of a byte loaded into the prims work area and 
sett the condition register. 



c 



Return 



J 



{ Enter J 

I 



XR2 points to the first byte of a 5-byte 
parameter list. 

XR1 points to the beginning of the pro- 
gram level communications aree (PLCA1 
which contains registers saved from the 
problem program. 



SSSYRP 



Chart: EZorEI 



RPG II Halt Processor 

Called by the supervisor wh soever a hall is requested by an 
RPG II compiler phase of RPG 1 1 object program. This is 
e transient. When an error occurs, the halt transient is call- 
ed which sets up a 5-byte parameter Hit to be pasted to the 
Halt/Syslog Transient For a description of errors, error 
codes, and displays, see IBM Systam/3 Modal 10 Disk Syr 
tern Haft Guide, GC21-7540, fBM Systtm/3 Modal 6 Haft 
Guide, GC21 7541. or IBM Systam/3 Model IS System 
Messages. GC21-5076. For information about the Hait/Sys- 
log Transient, see fBM System /3 Disk Systems Control Pro- 
gram Logic Manual, SY21 -0502. or fBM System/3 Modal 
15 Scheduler Logic Manual, SY 2 1-0035. 



The condition register contains the high, low, 
or equal setting as follows: 

Test Byte Condition Register Setting 

& High 

- (minus) Low 

A-» High 

J-R Low 

All others Equal 



> Updated 8-byte parameter list in ROCA 
pointed to by XR2. 

Updated the return address in the PLCA 
depending on the halt option taken. 



XR2 points to the first byte of a 8-byte 
parameter list. 

XR1 points to the beginning of The pro- 
gram level communications area (PLCA) 
which contains registers saved from the 
problem program. 



Return 



Enter 



I 



3 



SSSYR1 



Chart: E2 (Model 15 Only) 



RPG IL Halt Processor Library called by the supervisor 
if SSSYRP does not have the required text for the hall 
being issued. This Is a transient that performs the same 
function as SSSYRP except that it handles a different 
group of halts. See $$SYftP for reference. 



I 



Return 



Figure 4-3 (Part 9 of 9). Library of Subroutines 



Updated 5-byta parameter liit in ROCA 
pointed to by XR2. 

Updated current address in the PLCA 
depending on the halt option taken. 
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**»*A1*** ****** 

» * 

* ENTRY J 

***** #4*****4+* 



•NOVEPARAMETER • 

* LIST TO PRIME • 

• WORK AREA * 



*****C 1****** *** * 

: s%JKT*- : 

* ROUTINE • 

• • 
***************** 



*****m********** 

• LOAD D.TJ • 

• ADDRESS AND * 

• MOVE INDEX TO * 

• WORK AREA * 

***************** 



A10020 ••• 






El *. 






• * *. 






.• INDEX * 


. JW 


*. >0 






*. .* 




1 


** .* 






: 


* YE5 




*l** 

* * 

* C3 • 














• * 








•«•* 


AL0030 V 






* 


■ 




•ELEMENT ADDRESS* 




* TO UOR 


( AREA 


• 





***************** 



*****Gl*i******** 

cx « ] 

MINUS 



NO * 
• >• »3 



• ADC INDEX T 



hi 



• ARRAY ADORE 



***************** 



UOQ40 


Rl •. 






* •< 




NQ . • 


ADDRESS *. 


Y£S 


*■ 

*, 


mil* ..- 
*. »* 
*. .* 


I 




« 


* * 
c*»* 



* w 

T 

.*. 

.•Sesul*"*. 



*. RANGP 

*. 

*. .* 

* \ 
***• 

* < 

• C3 *->| 



V F2/01/AI 

********** 



• CALL RPG tl 4 
WALT PROCESS OR • 



)ObO V 

*****0$********** 

• AODRGSS * 



*****£$******** 

* 

* HOVE RESU.T 



»»F3*****« 

LOAD XR2 



****G3********* 

• * 

• EXIT • 

• • 
*************** 

TOiCALLING ROUTINE 



Chart EA. Array Index Subroutine 
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APGOOO V 

* SET UP RETURN • 

* FOR I/O BASED * 

* ON PARAMETER * 

* BYTE * 



APT.003 



•SET POINTC* TO 



START OF 

* TRANSLATl 
•TABLE, SAVE NO * 



TRANSLATE 
i»LE, SAVE I 
OF ENTRIES 



• Di •-> 



•**«*D1*!« 



SET-UP 
CHARACTER 



♦CHARACTER CHECK* 
• 4NO REPLACE 



• INITIALIZE * 

•COUNTER FOR END* 
*QF TABLE, f»OINT« 

• TO TABLE * 



APGOIO 



APGOZO 



.•ARCUHFNT 

FIELD 

•. ENTRY 



tes 



• PFPLACE FIELO • 

— >• E^NTRY hlTH • 

•TARLF FUNCTION * 



•SET POINTER TO 

• NEXT TABLE 

• ARGUMENT 



Mi 



END OF 
TABLE 



YES 



APGOJO 



• POINT TO NEXT 

• FIELD ENTflV 



.* 



• END OF 

FTEL" 

• . ENTR[ 



fin h ..•- 



.* 



* vfS 



RESTORE 
REOISTEH5 



FX1T • 



TQiCALLINC ftr^TINf 



Chart £B. File Translate Subroutine 
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ENTRY 



***#81********** 

' T0 2MBr : 



***************** 



M***C I ********** 

: ,?§?§ ims* : 

• AREA * 



> 63 t 
■ i 

**** 



*****(I3*«******** 



**** 



POSITIO 



TO 

00 T 
TION 



* MOVE PARKS TO • 

• APPROPRIATE • 

* INSTRUCTIONS • 

• * 
*»••*•••*•******• 



****»E 1********** 

♦ * 

* • 

ft*************** 



V 

:• S N|H 

*. NEGATIVE 



Gl 



*«***F2 
•MSYRP 



EZ/01/A1 



->* CALL RPG H * 

♦HALT PROCESSOR • 
• • 

•**•*••****•****• 

• *** 
* * 

->* E5 • 

r * 

**** 



•****C3< 



: ?Yhirv? s ^ T 



— *-^ f r e S8 ce ..- # 
*. .♦ 

*> >* 

* VES 



•****C5********** 

• • 

• AOO I TO ROOT * 

• * 

• * 
*•**•***«•**•**** 



,- SQUARED *. yes 

■ ROOT < SOURCE.* 

*. FIELD .♦ 



•****£3********** 

♦SUBTRACT 1 FROM 

♦ PRESENT AMT 

• POSITION 



F3 *, 



I .■ 



rES 



**«**G3 ********** 

* • 

* SHIFT TO NEXT * 

* DIGIT IN ROOT • 



»***«D5********** 



•HOVE RESULT TO 
* FTELO 



***************** 
•*** 



* E5 *-> 
t • 

**** 



*+*»E5********« 

► 4 

» EXIT « 

> * 
******•*•*•*••* 



TO* CALLING 
ROUTT NE 



SOURCE FIELO IS 
DIVIOEO BY TWO 



V NOTE 
*****H i**« ******* 

* CALCULATE • 

: wan n : 

* RESULT FIELD • 



: r?1t 



H3 

•OSITIONS. 
,* 

,* 
YES 



,*— — >• B3 * 



******** 
ATE ♦ 
N OF • 



*»***j3»******** 

* 
**************** 



• B3 * 



» P5 * 

> i 

**** 
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FMJ66 



| ENTRY J 

******* ***#*•** 



.* 1ST *. NO 

esc* .* ;■ 

♦.REFERENCE.* 

*» ■ * 

*. .♦ V 

• YES *♦' 



.♦ NUMBER A ♦. YES 

TA6LE .♦ 

♦.REFERENCE.* 



••***C2*»****»»»* 



DTP 



01 *. 

♦ This 



.♦STATION ID *. YES * HOVE TABU * 

• . A TABLE . • >* ADDRESS INTO • 

•- ELEMENT. .♦ * OTF * 



< 

V 



El 
.♦REMOTE ♦. 

:' s Tfflia o *:**! 

*. ELEMENT .♦ 



• ♦ 

♦ MOVE T*BL€ * 
>♦ AK,« E g| F lNTO ♦ 

» « 



:D 

.♦' 
.♦ 
* YES 






*#***HL****«****« 

* TRANSLATE * 

: REHO k s iF TFcN : 

♦ SPECIFIED ♦ 
•♦♦******♦♦*♦***« 

«*♦♦ 

♦ * 

* Jl ♦-> 

• ♦ 
♦ ♦♦* 

*****J1********** 
♦BSC-IOCS __ * 

•"• BRANCH TO ♦"* 



***** i +*+**+++* 

♦ EXIT * 

♦ ♦ 
*************** 

TOTALLING ROUTINE 

Chart ED. BSCA Logic for Transmit and Receive 
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PSBC 
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u*«*< 

ENTRY 



* EATft* * 



61 *. 








.♦ 1ST *. 

-• BSCA *. 
, PREFERENCE . 


NO 






•— — , 






*• .* 


1 






*. .* 


V 






• YES 

V 


• * 

• Jl * 

• * 






CI •. 




•M»*C2*««**«**«« 


.♦ DIAL •. 




• 




.♦ NUMBER A *. 
TABLE 


YES 


« 


MOVE TABLE • 

ADDRESS INTP • 

OTF * 




->♦ 


*. ELEMENT- .* 




* 


*• .* 




• 




•• »* 




•*••**•*»»*«***** 


* NO 






| 


i < 








.♦Station id*». 


.r«.-™ 


■>• AODRfSS INTO " 


*• .• 
♦. . * 




• 


* 






El •. •* 

.♦REMOTE *. • 

.:* lT rHM D *:^ — >: 

*. ELEMENT .♦ * 



HOVE TABLE 

ADDRESS INTO 

OTF 



NO 
< 



.♦ 1ST ♦ . 

BSCA 
♦.gEFERENGg.^ 



NO 



• ♦*• 

• * 

• Jl • 



CI *. ***a*c2 s ********* 

.♦ DIAL *. * * 

.♦ NUMBER A •- YES * MOVE TABLE • 

'. TABLE -• >• AODRESS INTO * 

•. ELEMENT .* * DTF * 



NO 



.♦"t> 



'JtaT?4n tl*», YES * MOVE TABLE • 

A TAflLE ,• -->• ADDRESS INTO • 

ELEMENT .* • DTF * 



t*M4t***»M«*«»i 



• NO 



•. ElEMENT .* ♦ DTF • 

*. .* • • 



► NO 

L 



Fl •. 

ASCII **. NO 
USEO .• -> 



»G1< 



$m\\ny 



•••**••«**■*••** 



♦♦** 
• ji *-> 



♦esc-iocs __* 

• *~ERANCM TO* ♦ 

* • iocs * * 



' EXIT * 



•••••3 1«*« *••••* 
• SPECIFIED 



•*4**H1*«******** 

* TRANSLATE * 
♦REMOTE STATICN * 

: Muttu, t 

♦ * 



* ji •-> 

* * 
♦♦♦• 



* * BRANCH TO • 

♦ * t**BSDG> ♦ 



TOe CALLING ROUTINE 



•*«»K144*+**4*« 
» • 

» EXIT ♦ 

» * 

TOTALLING ROUTINE 
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PGBI 



ENTRY 



pcea 



ENTRY 



,• LOOKAHEAG *. YES 

END OF FILE .* 

♦ . ON .* 



♦MOVE PARAMETERS* 
• TO SAVE AREA • 



DETERMINE 

DUTPUT LENGTH 

AND ADDRESS 



PFA03D 

•«*ft*El ********** 

• SAVE SIGN * 
•POSITION. POINT* 

• KB I TO NUMBER * 

• TO RE CONVERTED* 



*fV 



•CLEW WORK AREA* 
• FDR PESULT * 



PFA04 






MOVE 9'S TO 
FIELD 



->• KZ * 

ft ft 

• •♦ft 



NUMBER 
NEGATIVE 



no 



• 
ft 


* 


*. .* 
*• ■* 

•. .ft 
* YES 


HI 
,* 
.* A 
• • fll 

••PROCI 
ft. 


1 

A **:.- T !f- 

■SSED.* 


V 
•••**H7 ••••••••*• 

* • 

• COMPLEMENT • 

* NUMBER • 

ft • 

• • 


* NO 






V 


PFA<?60 


t 


ft * 
•CONVERT BITS TO* 

• BINARY • 

• • 

• • 


ft • 

• MOVE OUTPUT AND"! 

* RESTORE • 

• REGISTERS 7 * 

* ft 


i 

• 

• POINT 

* NEXT 

• 
• 


i 
»*•*•••*« 

(HI TO * 
)!GIT • 

• 
• 


• *•• 

• • 

• K2 *-> 

• • 
■ ••• 

• ftftftKZ* 

• EX 

• 


• «• 



•ftftftftftft ********** 



T.iiCALLlNG ROUTINE 

Chart EG. Convert to Binary Subroutine 



PGAO*0 



IF NEGATIVE, 
COMPLEMENT 
BINARY NUMBER 



PGA05C V 

•ft**«Cl ********** 

* MPVe FIRST • 

* P4RA METER TO • 

* STORAGF AND * 

* CLFAR RESULT * 

* FLO * 



PGAC80 -*. 



* ORDER BIT *. YES 

, IN LEFTMOST ,* 

*. BYTE ON .* 



»«**«D?*ft ••• ft**** 

• TURN ON H[GH « 

• HRDER PIT AND • 
■>* Ana X»FV TO • 

• RESULT FIELD • 



**ftft*E V* *•****«** 
•MOVE HALF BYTE • 

• PORTION 1 * OF I 

• F-iONE FIELD • 

• ft 
*********** ****** 



PGA100 V 

* •ftftftf lftft*ft**ftft*ft 
ft ft 

* ADO MODIFIED * 
•F-iONE FIELD TO* 

* RESULT FIELD * 



PGA1JO 


•. 




.*• 






Gl ♦. 




G? *. 






.* *. 




.♦ *. 






-♦ ALL * 


. YES 


.* NUMMFR • 


. NO 


*. BITS 

♦.PROCESSED.* 


.• 


"->*. NEGATIV6 


„•- 


~ — ^ 




*. .* 




1 


*. .* 




** .* 






*« >* 




*. •* 




V 


* NO 




* YES 




ft 

• JZ 








1 














ft 








f 




*••• 


V 




V 






•••••HI ♦ *• ftftftftftftft 


***** HZ •*•»•••••• 




♦MULTIPLY FIELO 
♦ LEFT TO BE 


• 


• 


• 




• 


* SET SIGN OF 


• 




• CONVERTED BY 


• 


•RESULT TO MINUS* 




* BASE 16 


ft 


• 


• 




* 


• 


• 


• 










• ••• 














• • 














* J? *-> 














* • 














• *•• 








V 




PGA150 

> 


t 






• 


* 








♦SET POINTER TO 


• 


ft 


ft 




♦ LOOK AT 

♦ LEFTMOST BYTE 

• 


* 


• exn 


• 




• 
* 


• 


• 





TO; CALLING ROUTINE 
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pccp 

ENTRY 



,* 1ST *. NO 

BSCA .* . 

•.REFEftENCJ.* j 

'*. .•* V 

* YES *•*• 

: ■»: 

•••• 



.• dial *. 

.* NUMBER A «, 

TABLE 

••REFERENCE.* 



***+*C2* 



*•******•+*••*•*• 



.• D TttIs"'*. 

.•STATION ID *. VES 

'. A TABLE .* 

*. ELEMENT .• 

"*. ,** 

NO 



»DZ« 



* HDVC TABLE * 
->* ADDRESS INTO • 

* OTF * 

* * 






-•ftEKOTE *. * 

»JTAT|W ID *. YES • HOVE TABLE 

A TABLE .* >* ADDRESS TWO 

'. ELEMENT .* • DTF 

*». .** ****+♦****♦#**■* 

• NO 






* YES 



•translate this • 
♦Station id> if * 
• specified * 



• TRANSLATE 
•REMOTE STATION 

• 10, IF 

• SPECIFIED 



♦ **< 

• Jl •-> 

• • 

♦ *♦• 
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• * BRANCH TO • • 

♦ * IOCS • • 

* • mesopi * * 



•••*K1»»»< 
* EXIT 



TOtCALLING RCOTINF 
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PGC1 



• • 
*SPT POIHTEP TO • 

• PJTE5 IN THE « 

• DTF * 



* « 
•SET OFF ALLt>y£D» 

* COHNAND K£Y • 

* INDICATORS * 



••••■Dl** ******** 

• SET OK • 

* DEPRESSED • 

• COHflAND KEY • 

* IHDICATDRS * 



****ET ••*♦•♦••• 
RETDRH ' 



Chart EJ. Command Key Indicator Set Routine (Model 6) 



•LOOK-AHEAD 
AT ENO OF 
•. FILE 



VE5 



•* ***32********< 

* MflVF 9'S TO 

* FIELD 



►MOVE PARAHETER 
' LIST TO SAVF 



EFAOIO 

*****D1 ********** 

* « 

* MOVE PACKED • 

♦ FIELD TO WORK * 

• AREA * 



•****E1» ********* 

• EXP4ND EACH • 
■ BYTE. FKCEPT ■ 
♦LOW OftDER RVTE,« 

• TO TWO BYTfS • 



♦****f 1 ********** 
•Z-ADD WORK ARFA* 

• TO ITSELF FOR • 

• F-ZONE * 

• POSITIONS * 



FFA02O ¥ 

*****£! *******••* 

• HOVE UNPACKED * 

• FIELD TO THE • 
•SPECIFIED AON* * 

• IN PAR* LIST * 



EFAC*D 

V 
****KL ••*•*♦*•* 

* * 

: # j*[[ : 

TO: CALLING ROUTINE 



Chart EK. Unpack Subroutine 
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>GDC 



****A1****«**** 
k 4 

i- ENTRY i 



'81** 
MOVE HEADI 
"""I LITERAL 
TO OUTPUT 



******** 



•AND LITER 



DING ♦ 

AL ID * 



PGCQ 



****A1 ********* 

* ' a 

► ENTRY » 



PKAOOO 

*****Mi 



♦CLEAR WORK AREA 

* AND SAVE 

• RfG1STER!S 
* 
***•*•**•*•****• 



****C1********* 

PLACE INPUT 
PICLO INTO HnRK 



AREA 

... 



*****(] 1 ********** 

• • 
•PACK WORK AREA * 
•USING HALF8YTE • 

• MOVES • 

• ♦ 
***************** 



PKA02D « 

*****E i ********* 
• 

• PLACE PACKED 

• FrlLO INTO 

• OUTPUT AREA 



CI ♦. 

** *. 
,* OUTPUT *. NO 
, BUFFER FULL .*--- 

** •* 



* YES 



PRINT/PUNCH 
RECORD FR" 



• OUT PUT 



ROC 
BUFFER* 






EI 



INOICATOR 
ON 



*, NG 



♦ VES 



*****fl ********** 



ROVE SYMBOLIC ♦ 

"-)ICA^~" 

OUTPUT 



IND1 



;ator TO 

BUFFER 






YES 



.* MOVE 
, INDICAT 
*. TO TE 



2? s 



RESTORE 
REGISTERS 



TOTALLING ROUTINE 



Chart EL. Pack Subroutine 



• NO 



•**»] ************ 
PRINT/PUNCM 
* LAST, • 

INDICATOR 
* OATA • 

***************** 



Jl *. 

,** FIELD *♦- YES 

OPTION .* 

♦.SPECIFIED.* 

"*. .*" 

NO 



PRINT/PUNCH 
• CONTENTS OF * 
SPECIFIED 
FIELD * 



> 

**••***«•*•■***** 



**** K 1*«******* 

* * 

* EXIT * 

* * 
•****••*******« 

TOTALLING ROUTINE 

Chart EM. DEBUG Subroutine 
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(*GOJ 



» FNTRY * 
■ * 

*******»**«•*•* 



ADOOOO V 

••*»*A i ********** 

* • 
•MOVE PARAMETER * 

* LIST TO PRIME * 

* WORK AREA * 

* * 
ft**************** 



A OOOIO 

•****ci********** 

* MOVE ONF BVTF * 
*EACH FIELD TO A* 

* SEPARATE HOLD • 

* AREA * 

* * 
***************** 



AD0020 V 

*****Q1 ********** 

• TF AVAUABLFt * 

• GET ALT VALUE * 
•FOR BYTES FROM • 

• ALTSEO TABLE * 



AO0O30 



,* BYTES *. NO 
EQUAL .* 



AQ0040 .*« 

Fl *. 
.* ALL *. 

NO . * CORRES *, 

— *, BYTES REEN , 

•.COMPAREO .• 






****Q1 ********* 
I * 

* EXIT < 



TO CALLING ROUTINE 



Chart EN. Alternate Collating Sequence Subroutine 
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***»*fil*»******** 

CALC* 

* 

ss * 



•RET 



E REGS, C 
URN AODRE 



BRANCH AT 
DPOIOO TO 



)ooo y 

*****D1 ********* a 

* * 
•STORE PARAMETER* 

• LIST * 



***************** 



*****£!*** ******* 

•SET OSPLY TEXT * 
•A&DR ■ Xftl ♦ • 



****** ***-•******* 



*. 



Fl 

' ARE Fl 

C RF 
, PRESENT .* 
*. •* 

*. .* 
* NO 



• 62 



BRANCH AT 

DPOlQO TO 

•UCB 



**** 

* * 

* B+ • 

* * 
• •*• 



iYSLOC" 

N 
*************** 



I: 

* 
>*** 

ENT DSPLY* 



«**• 

i 
->* G2 * 

* 
**** 



•IhCRfHENT 
■>*TEXT f " 

* 36 

• * 
***************** 



X 








c* *. 








• ** 






BRANCH - 
•OCB 


*, 


YES 


"v 


*• • * 






***** 


*• .* 






•002* 


* MO 






• * 



JC2 j 

**** 



* MAKE TEXT 
->* LENGTH * 7i 
fTES 



I : BV7 

********* 
**** 



" 02 ' 
i i 

»*** 



**0* ******* 
► DP0610 TO 

* «uce 



*****E2**+******* 

* * 

* a 

***************** 



*****F2** *•*•***• 



*******00 I ******* 



€4 •- 

:'* c!s §8l¥ 

*. X'20' 



• ****F4 **.*****•«• 

• * 

• HOVE! RESULT * 

• FLO TO REPLY * 

• T=LO * 



D2 



>*G1 

TEXT 
BYTES 



HAKE 
EMGTH_f 36 



**** 
•001* 
* G2 ♦-> 



t** G2 ******** 

»Q|NT XR1 TO 



************** i 



0PO20O 



**G4 ******* 

•^INITIALIZE *• 

* INDEX TO 106 < 

• X'6A« ♦ 

* * 

•***002**«* 



YES 



*****H2********** 

* LOAO THE ADOR • 
•OF PARH LIST TO* 

• XR2 • 



•SET MESSAGE ID * 
• » "KTlOO ** * 



***************** 



* B2 « 

» 4 

**** 



**** 
t * 

* 64 * 
► o 

• **• 
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***** 
+002* 
• Al* 

* * 



DP0210 



Al •. 

,*IS XR1 *. 

+ ism ■ •: 



****«Bl*********a 



****** **** * *** * 



->* 92 * 

* a 

•**a 



PP0400 



• **» 

• * 

• B2 * 



IS 

: jit 

HUMERI 



**** 

* * 

a B* * 



*:.* 

*•*• 



«LKRf.S 



YES 



Vesui? fld V-°_ 

>. NUMERIC .* [ 

*■ •• .1 



a*C2*i****a 

► 4 
SET 5* AT 
DP0410 TO 

*N0-OP 

► 4 

a********** 



J OUT BY 

* BUFFER—SaX • 

* NUMERIC LEN - • 

* 16 BYTES * 

***************** 



**+a 




a 


a 


* * 


•••* 


: 63 :-t 




a*** v 




DP0510 .*. DP0700 


.*ll bytI*. 


•*B4******* 

* * 


■• A VALID • . NO 

*. NUMERIC .*- 

•. X'FN" .* 1 
*. .* 

• - .• V 
• YES ***• 


• SET UP TO * 
• ADDRESS 

a * 


a a 






a 


* a 






a 


• F* * 






a 


• * 
***• 






*S***C 3 a ***••*•** 


**C4******« 


* a 


a * 


* DECREMENT • 
•OISPLACEHENT BY* 


* SET vp FROM * 
* ADDRESS « 

a a 



***************** 



•*a* 
' Fl * 



•****E i********a* 

• a 
♦ZERO OUT BYTES * 

• 72-67 OF WORK * 

• AREA • 



ft**************** 

a*** 
a a 

* Fl •-> 

a * 

**** 
DP0300 

******H********** 



**************** 



► J* * 

t * 



0P0410 



..H 



.* IS INST I 

•.DISPLACEMENT 
*. - T9 .« 



**** i 

DP0600 V 

*****E3***»**»++* 



»ap4*S«**va 

SET UP 

LENGTH OF 
MPv€ - I 



**** 

► ' 

► 93 ' 

N I 

a*a* 



DP07iO 

*****E4********** 



+:* * AfSS! ■ *:•£-. 

*. X J 60« .* ] 



i&; 



* 'RESLEN' • 

* • 
** ******* ******** 



a*** 

a a 



» J2 * 



•DECREMENT INDEX* 
• 8Y ONE • 



• CALC RESPONSE ♦ 
LENGTH: RESLCK • 
•- 80 » LENGTH -• 



• POINT XR2 AT 
♦HALT PARH LIST 



a**************** 



.-a 
> .+ 
* YES 



m 



I Z 



a*** 

t 
* F4 



0PO4ZO 



DP0610 



V 

***** 

*ooi* 

* G2* 



•a*************** 



J 2 *-> 



***« 
0PO500 

**J2******* 



DP0510 - 

INDEX 



«••* 
t • 

► B3 * 

► • 

**** 



*a*a 
l * 
► B4 * 

*♦** 



; F1 : 

*a»* 



• ••»■ 
• a 

I 



****»J4********** 



RESTORE 
REGISTERS 



****K4 ********* 

* RETURN TP < 

* CALLER * 

* * 
*****x* ******** 
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•*»*A1* *w****** 

» t 

• ENTRY * 

* • 
*********** *•** 



A* ■. 
.* *, 

.* SEQUENCE *. NO 

->-■... -safes ..■*--? 



*****BI*** ******* 

• ■ * 
*HCVE PARAMETERS* 

* TO WORK AREA * 



t****B4********* 
'CHECK SEQUENCE 



* D* * 

* * 
• *** 



• ••• 
* CI *-> 



CI 



.:• cEikio *;J«. 



*. .* 



• 01 *-> 

• • 
•**• 

.. * C6/01/A1 
*****01*********» 

• IPC* * 

♦GET NEXT RECC*D* 



•***C2********* 
>• EXIT • 

f * * 

**** TO* CALLING 
► • ROUTINE 



k*v* * ** ********** 



C+ 



****C5********* 
.* *. YES • * 

. SEQUENCE .• >• EXIT « 

*. ERROR .* A ♦ * 



»*** 



' .*. 

0* *. 



•:. m» 



processorUisyrp 



E2 



,* E 



HiP ':•*!*-. 



EZ/01/ 
*****E3********* 
•«SYRP 



* NO 



.•TABLE? ARRAY*. NO 
— . *, HAVE ALTER- .* . 

i 



NATE 



I**** 
->• C2 • 



.•tIbles *. 

AARAY *. YES 
ENTRIES ■ .*- 



->*CALL RPGIt HALT* . 

~~»50R * I 



PROCESS 



* 

• •** 

* * 

* CI *-> 

* * J 

• *** V 



« Dl * 

• » 

**** 



JSitttt 1 



G2 *. 
.* 
.* BINARY 
->*. DATA 



* YES 



V EG/01/A1 

***»*H2»********t 
***PGflO * 



••••** *********** 



*4***J2*** ******* 



***************** 



* CI 



■■*••••• 



* INCREMENT • 

* POINTER TO • 

* INPUT. BUFFER » 

***************** 



YES 



.•PROCESSING 

ALTEgNATE 

*. ENTRY . 

*. .* 

** •• 

• NO 



: « : 

**•* 



»****H4********** 
* * 

♦SUBTRACT I FROM* 

• TABLE ENTRIES • 

• COUNTER * 

• • 
***************** 



.*. 



*«***J9********** 



counter •.*«*_>: w |R8B 5 : — 

: cowTE " : f 
*. .* ****■••*•***•**** ^ 

• »o »••« 



.* RECORD 
>*_ COUNTER • 



• NO •••• 

*••* * * 

I * , *» 01* 

* • *••• 
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ENTRY 



*****Bl»#+#*«**** 



•HOVE PARAMETERS* 
• TO WORK AREA * 



»#* ******* M *«•■ tk 

*•*• 



»***•£ X*** ******* 

•LCAD ADDRESS OF* 
• I DC 6 INTO XR2 * 



**•••*•**•*+***•• 



OL +. 

FILE 
CLOSED 



res 



• £5 • 

• * 
• •** 



3atM!!tf £ : 



*****E l*********t 
•INITIAL 

*RE( 

* 

• ••• 

* * 

• Fl *->| 

**•* V 
<*< 
Fl 



k * ALTERNATE •. YfS 



.SPECIFIED.*' 



*»***C3 ••■*****•• 

* • 

•TABLE/ARRiV and* 
•RECORD COUNTERS* 



ENTftll 
JR RECC 
EMTRies PER 
♦ RCO CNTR .• 



,*P6R 



«sv 



YES 



» Fl • 

» • 

• *•* 



• YES 



EL/Ol/Al 



*♦ **tPG< 

INPUT *. YES < 

<ED -• >' 





•••• 




• * 




♦ 85 * 




* • 




**** 
J 




i 




«*« 




.*I5t«ies«. 


NO 


• PER *. 


— • 


, TABLE/ ARRAY .• 
*■ «0 .* 


I 


1 


*. .* 


V 


• • ** 


• ••* 


* YES 


• * 


1 


• Cl • 




• * 




• **• 


1 




.♦. 




C5 •- 




.* *. 




'•dBIS 1 * *:.^ 


* 




*. OlS* .« 



V CC/Ol/Al 
•ORCR • 



•WRITE /• RECORD* 



•*•* 

* • 

• E5 *-> 



► EXIT * 



TO: CALL) NO ROUTINE 



YES 



* NO 
V 



V E6/01/A1 
***««tlL •••***•*** 
*44PCBI • 



•FIELD TO BINARY* 



•*•••»•+**+*» «•+■ 



< 

< 



++***J1*****«**«* 



• FL * 

• * 



)*+*•« 



**««*£ 3** **••**» 

* 

• POIttT TO IDC8 



V CC/Ol/AI 
•OPCR 



• WRIT 



iisr 



> • 

» B5 • 

k • 

••a* 



• ••• 

• * 

• B3 • 



Chart EQ. Dump Object Table Subroutine 
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ENTRY 



♦*•* 

• * 

* B3 • 



.. Bl *•.. 

.+ ZERO *. YES 
•- DIVISOR .*--- 7 
*. .* 
*. .• 

*, -• V 

• no • **• 

* • 

* G2 * 

* * 
• ••* 


** ■* "»C 1*** •* • **+* 


• SAVE SIGNS* * 

• FORCE TO * 

• POSITIVE * 

• * 


• *+* 

♦ * 

• Dl •-> 

* • 


(VIDEND » 

? EH 5 *: 

RESULT * 



YFS 



*«******•***••*•• 



El *. 



* YES 



RESULT 



* 
INCREMENT XR2 • 

****** *********** 



**»*E2********* 



I************** 



COUNTfR 

OVFPLOW 



**OR MINUi 



*****C3****< 



****** *•***•****• 



.— > 



RESULT 

**************** 



i***(E3«i»*i**»**** 

* • 

•CLEAR FACTOR Z • 

* • 

* a 
***************** 

**•* 

• * 

• * 
*•**. 

CHAOSO 

****? 3*1** 

♦ EXIT 



* GZ •-> 

* * 
**** 



TOTALLING ROUTINE 



N Dl * 
k < 
• *** 



*****G2**+***+** 



./this**.. 

• position *. 



CHAOSO 



V EZ/Ol/Al 



SIGN 

-* 
*. .• 

* Yes 



*•** 

* • 

• 93 • 



* call rpg rr * 

•HALT PROCESSOR • 

• * 
I**************** 



*****J2***+****** 

* 
CLEAR RESULT * 

■*************** 

I**** 
• • 

->• F3 • 



Chart ER. Divide Subroutine 
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PGLC 



ERTfiT 



B3 ♦ 



*****B1 ********** 

* 

HOVE PARAMETER * 

LIST TO PRUE * 

WORK UREA * 

* 

**************** 



*****C1 ********** 
•BOTE ADDRESSES • 
•AND LEKGTHS OF * 
* FACTORS IWTO • 

■• cohpabe irstr * 



*****B2 ********** 

* SET POIRTER * 

* BACK ORE * 

* BLEHEST AID *<- 

* STORE OLD PSR * 

* * 
***************** 



• 01 *-> 



• •*• 



*****D1 ********** 

* compare * 

* TABLE/ARPAY • 

* ELEKERT ARB • 

* FACTOR 1 * 

* * 
***************** 



**** 

* A 

* B3 * 

* i 



*****g2** ******** 
•HDD LERGTH OF 1* 
•BLEHEHT TO LAST* 
■>* FOORD IK • 
•TABLB/APRAT DTT* 



52 



* ERD OP •. HO 

TABLE -* 



B3 *. 

* i 

TABLE 

SEARCH 
ABRORHAL 



* RO 



*****C3*«* ******* 

• * 

• STORE COHBERT * 
•PSR PROS STATOS* 

• REGISTER * 



*****D3*** ******* 

* • 

* UPDATE DTT TO • 
•POIHT TO FOOHD * 

* ELESBRT • 



****23********* 

DPDATE IlDEX IP 
FACTOR 2 
VARIABLE 



* \ '■ 



-3***i 
EXIT 



**** TO:CALLIRG FOOTIHE 

* * 

* D1 • 

* * 
**** 



****g1********** 
SFT IHDEX TO 1 •<- 



TES .* TRDEI *. 

*. IB FACTOR 2 .* 

*. VARIABLE .* 
*. .* 



L 



****H2********* 

► > 

* BUT 



TOiCALLTRG HODTIRE 



Chart ES. LOKUP Subroutine 
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ST AM 



• SAVE ADORESS • 
♦RECALL RFCISTER* 



•SET COMMAND KEY* 
• COUNT TO 16 • 



tt*m*o\ ********** 

* * 

• HOVE KEY • 



*«***E1********+ 

* SHIFT KEY„ 
♦INDICATOR BITS 

♦ ONE BIT LEFT 



Fl *. 

i* * 

OVERFLOW 

' •• .< 

*. .* 
♦ NO 



**«*«f:2*****««** 



YES 



->• KEY 



HOVC COMMAND 

v cour - 

LOAO 



JNT TO 
I/O 



IEMENT ♦ 
♦<- 



• DECREMENT 

* COMMAND KEY 

♦ COUNT BY ONE 



>G2' 



TURN COMMAND 
KEY LIGHT ON 



Ml ♦. 

.* * 
NO .* COMMAND 
— •. KEY COUNT 
♦ . 



* YES 



LOAD 1AR WITH 
ARft 



• A 

* RETURN « 



Chart ET. Command Key Indicator Light Restorer Routine (Model 6) 
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IIPGHA 

****H********* 

* i 

* ENTRY * 



*****$l********** 
» * 

* SAVE REGS AND * 

• STORE RETURN • 



*****tl**+******* 



***************** 



* BRANCH AT * 



! FACTOR 

*. ARRJ 



ves 



* 62 • 



• STORE FIELD • 
MOOR ANO FjELD • 

• LENGTH AT * 

• RESLSN • 

• * 
***************** 

I**** 
* • 

->• M * 



i * 

> 02 *— - 



NA2O0 V 

•****Q2********" 
♦STORE ARRAY OTT* 
* DATA ANO REF » 



***************** 

.!. 

E2 *. 
,* IS 

*. vaRTaSly ,* . 

•. indexcd .• 



* * 

* sa * 
t * 

**** 



HAS 00 V 

*****&■$********** 



* B* * — ? 
HA620 V 

Iaddr AND STORE 



! iS 



• STORE FIELD * 
•ADOR AND FIELD * 
•LENGTH "F ACL EN"* 



**** 

• * 

• SI •-> 

• « 
**** 

*** **$!********** 



***************** 



* mm* ****** 
* * 

* SET BRANCH 



!*RESUL? FLO 

*.AN ARRAY , 



*l** 

* * 

* 62 * 

* * 
**** 



Y« 



HO 



•+»C3«»a ******* 

wrnm ®°i : 

ELEMENT • 



• RESULT FIELD 

• LENGTH AT • 

• RESLEN • 
***************** 



HA900 V 

»+***B5**** ****** 



MOVE OATA 

************** 



*****C5********** 



Ml WWi 



***************** 



•SET no 



"OVE^ENGTH. 



. RESLEN < .* - 

♦. FACLEN .* 1 



•DECREMENT "TO- • 
YES * AND "FROK" • 

: « W S3H BY : 



E3 *. 

.* *. 

-—*.'*! nop." equal* 
*. to 5 .* 



• YES 



STORE INDEX 
VALUE 



**************** 



HA6Q0 .*. 

F3 *. 

-• 1$ *. 

.•REFERENCED *. YFS 
•. ELEN ADD1 > .* 

••.^dor l ^-* ] 

*. .• V 
NO •*< 



G2 



' 02 • 

I * 
**** 



*************** 



*****p+********** 

* * 
•OECREMENT "TO- * 
•A00R BY L6NGTH *- 

♦ OTFFERENCE * 

• ■ 
***************** 

**** 

* * 



:totPIS r s? e «Ilen: 

* 4 

***************** 



*****f $********** 



> 



YES 



*****(&********** 

• AVAILABLE • 

• LENGTH ENTRY * 

• * 
***************** 



**** 
1AT10 

*****&> 



*[ 

G4 ********* 



DIFFERENCE 



ERROR 

•»***H2* 
•»»SYRP 



V^EZ/01/A1 NAfrlO 



•^Scissor 1 : 

* * 

***************** 



MA4Q0 



M3 *. 

IS JUMP **. NO 

i 

* YES **» 



byte, set l0 • 

• totlen»s • 

***************** 



•* T S 

"•.P05 



X 

> *. 

IS * 

m 

.4 

• MO 



:<*: 

•*** 



*****H$m**m***** 



**************** 



***j2***+*****+ 



***»*&********** 

* SET UP FROM • 
•AODR ANO STORE • 
•FACTOR 2 LENGTH* 

• AT FACLEN * 



• ••• 

• * 
->• Gl • 

* * 



t*jS********* 
RETURN TO * 
CALLER * 



• B3 • 

* * 
**** 



**** 
i * 

■ B5 * 



Chart EU. Move Array 
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•****B1 ***•***••• 



****A2********+ 
» < 

► EWTRY * 

► 4 
******* ******** 



4*4**62'**+******* 

• INITIALIZE * 

• MULTIPLIER * 

* START * 

* DISPtACEHENT • 



*****C2"*»******* 



*****( I ********** 



* FORCE BOTH * 
•FIELDS POSITIVE* 



***************** 



■> <■ 



COAOIO V 

*****Q1** 



******** 



♦SUBTRACT 1 FROM* 
* PRODUCT * 



£1 *. 
,* ' 

RESULT 
NEGATIVE 



• YES 



>****E2 ********* 



•ADD FACTOR 2 TD 
•>* PRODUCT 



• ****02it********* 

• FORCE BOTH * 

• FIELDS TO • 

• POSITIVE * 

• * 
***************** 



• ••• 
* E2 ' 



+****E3********M 

*SUBTAACT 1 FRCN* 
>* HULTlPtlEft * 
* DIGIT * 



* YES 



CDA020 V 

•** • *f ?** ******* * 
INCREMENT * 
JLTIPLIER * 



• I* 

* RUl 
*OI Sf I 



CDAOZD V 

•****F1 ***•***••• 



FORCE TO 
POSITIVE 



Gl *• 
.* THIS *< 
,* -POSIT ION 
SAME AS 
*. SIGN 
*. .* 

*. *♦ 
* YES 



*****H1*«* *»***•* 



♦CLEAR FACTOR Z * 



CD* 025 .*. 

G2 *. 
**** .* i 

* NO .* 

i EZ •< *. MULTIPLY 

» * •.COMPLETE 



• YES 



r^tfSfap To : 



V 

•*•* 

• * 



*****H2******«**« 

* CLEAR THE Z 

* MULTIPLICASD * 

* AREA • 



SIGNS 
EQUAL 



•**«*J2 ********* 
* 
* 
■>*SET TO NEGATIVE 




■*»»K2* *•**»**>* 

i ■ 

EX IT 



IT: CALLING ROUTIM 



CDA030 

V 
****K1*« 

* exi 



Chart EW. Multiply Subroutine (Model 15) 



TOTALLING ROUTINE 



Chait EV. Multiply Subroutine (Models 6, 10, and 12) 
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PGBT 



t i 

2HTRT * 



VG7C 



FMT«Y 



k * 

> Bl *-> 
* • 

81 



BUD OF 

PAP.AHBTEH 

LTST 



• HO 



BP0080 

•*a»g^ ********* 

* * 
— >♦ EXIT * 

* * 

TO:C»LLIBG PODTISB 



CI *. 
.* •. 

* STODLD *. 

TWDICATOR . 

*.BE SET OH.+ 



WO 



TFS 



*CHHHGB OP CODE * 

* OF SET IBDR * 
•INSTBCTCTION TO * 

* SRT OFF * 



* * 

* SELECT PPOPEB * 
•TWDTCATOB tJSIWS* 

* RISK BTT8 * 



BP0O4Q V 



* SET HDICITOS * 



•CRAHGE OP CODE * 

TO 5BT OH * 



.•CHArtACTEH «*. *ES 
*.A«P£BSJ»NJHS) .* 



*. YB5V 



CHARACTER = .*- 
*.ftIHUS(-) -* 



* TUhH OFF * 

* NUSEFIC PAST • 

* A!*D MOVE IN A * 

* C«i * 

* • 



ZOHE = 

C OB 





» HO 

I 


• * 
•POKCE 'C ZONE • 

• AND flOVF TO * 

• fcOilK AnF.fc • 

• • 




<— 



CPAOOO 



**** 
• * 
l->* Bl • 



SET OH 

CONDITIO!) 
REGISTER 



Chart EX. Set Resulting Indicators Subroutine 



TO: CALLING ROUTINE 



Chart EY. Test Zone Subroutine 
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SVRP 



SEE NOTE 
ENTRY * 



NOTE I FDR MODEL 15 

SEE CHART El 



STCRE REGISTERS* 
AND SET * 
SWITCHES * 

• 



• ■ 

• C3 * 

• « 
• *** 



CI 



NO 



control t 

ANCEL ADD 



♦CANCEL 



e£° 

RESS 



pgho&o 

•SYSLOG 



***•••*••» 



• MSSUE HALT • • 

• a * * 
***************** 



* POINT XR1 TO 

• DTP 



El *. 

► * t 

*. YES 

41.* 



NO 



L 



* C2 « 

* ■ 
• *»• 



*«***F1* ********* 

♦COMPLETION CCDE* 

* BECOMES ERROR * 

* CODE * 

* * 
***************** 



w. 



•*•* 
I 1 

» C2 < 



" C2 •<- 

1 4 

**** 



RGHOfld 
YES 



•CONTROLLED *, 

CANCEL 
*.REQU£STEO.* 



RON 100 
NO .*' 



.*. 



* POINT Xft2 TO * 
•BYPASS ADORESS * 



*Gt********** 



***************** 



RGHOdO 



HI *. 

* *< 

ERROR 
lOOE - 30 

>. T ° 3 V 
• * .* 



GET 



nCKeE 



ILE 



*************** 



HZ *. 
CLOSE 



*• *** J2 ********** 



RGH130 

**#*G3********* 

* * 

* EXIT * 

* * 

TD: CALLING PROGRAM 



■>« C3 • 

• • 

• *** 



*»*• 
■REMOTE OPTION 2* >* C3 * 



• C3 * 

• « 
•a** 



I Chart EZ. RPG Halt Transient (Models 6, 10, and 12) 
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SYAOOO 



► 6NTRY * 

» i 

**#♦****•*••••• 



**** 
I i 

► R4 » 

► i 
•*** 



• GET PARHS AfcD * 

* DETERMINE * 
•RETURN ADDRESS * 



•••*«S4 ••**#***** 

• GET CORE FOB * 

• PARH fc BUILD • 

• PARK * 



TO 40 

*. .V 
• YES 



♦* ** +D L* ******** * 



V NO _ 
*. CO 



ff 



3R 
. 40 

.*' 

,* 
YES 



•CCPtPLETION CODE* 

* BECOMES ERROR * 

• CODE * 

***•***•*******•• 



Gl ». 
.• SOFT *. 

ABORT *. YES 

IX«41' COUP .• ■ 

■, CODE) -* I 



lH THIS 

MODULE . 

*. .* 

*. .* 

* YES 



NO 



****03**w* •••*•* 
SET OPTION TO 0*<- 



SYR080 
YES 



IP HALT 
6 SPOOLING 
. ACTIVE . 



»*****«*****+*** 



* • HALT VIA • 



kYSLOG 



***«G3******»*** 



SYR125 ... 



SET UP CAMCfL • YES .• CONTROL • . 

ADDRESS •< *. CANCEL [OPT .* 

• *. 2) .* 



« 


> NO 


+*** 

* . * 

* * 
**** 


SYR040 

*»**+Ml *******•*< 




• SET HALT * 

• DEFAULT & 

• OPTIOKS < 




****** »*i 


******** 





->• KM * 

• * 
• **• 



**** .» " 

• * NO .* BYPASS 

* %A »<—-*. (OPT 1) 



* YES 



SYRD60 



» EXIT < 
i * 

a************** 



TO: TRANSIENT WITH 
TEXT [**SYRll 
E2/01/A2 



*****J4««******** 



*****£!* ********* 

* • •*** 
•SET DEFAULT - 3* * * 

* AND REMOVE * >* B4 * 

* CPTION 2 * * ♦ 

* « **•• 



* * 

• K4 •-> 



b**+K4.*****+++* 
• EXIT * 
*************** 



TO: CALLING ROUTINE 



Chart El. RPG II Halt Transient (Model 15) 
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SYROOO 



ENTRY 



+++**62*****+**** 



tLQAO POINTER TO* 
» CORE ARgA « 



+1+**+*** ******** 



* * HALT VIA * + 

* • CURRENT * * 

ft**************** 



*****EI********** E2 *. 

YES .»**COWTftOL "*. 
ADDRESS *< *• CANCEL (OPT .• 



SYR130 



F2 *. 



.* BYPASS *. NO 
*. (OPT 21 .* 



****H2********* 

» t 

* EXIT * 



TO I CALLING ROUTINE 

Chart E2. RPG II Halt Transient Library 1 (Model 15) 
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DATA AREAS 

This section describes the layout and contents of data 
aieas used by the object program. Although lengths and 
locations of data areas vary with the source program, 
absolute addresses and fixed lengths of data areas are 
given where appropriate. 



Reserved Object Communications Area (ROCA) 

The reserved object communications area is the first 256 
bytes of the Root Segment for every RPG II program. 
Only part of ROCA is actually generated since most of it 
is composed of work areas. 



Prime Work Area 

This 144-byte work area is located in the beginning of 
ROCA from XW to X'8F\ The following blocks of 
object code use the prime work area: 



Object Code 

TESTZ 
Z-ADD 
ADD 
Z-SUB 

SUB 
Multiply 

Divide 

SQRT 

LOKUP 

Control fields 

Matching fields 

Chain packed keys 

MVR 

Table load 

♦PRINT 

TIME 

Constant Area 



Bytes Used 

XW-X03' 

XW-X-OF' 

XW-X^' 

X'OO'-X'IP' 

XW-X'19' 

XW-X'32' (Models 6, 10, and 12) 

XW-X^A' (Model 15) 

XW-X^D' 

XW-X^D' 
XW-X^D' 

xw-w 

XW-X'SF 

xw-xw 

X*1B'-X*2A' 
X*60'-X*83' 
XW-X'8F 
XW-X'OC' (Model 15 only) 



The 50-byte constant area follows the prime work area in 
ROCA. This area is located from X*90' to X'Cl \ Com- 
piler phase SRPGH builds the constant area and phases 
SRPPC and $RPPO make additions to it. The constant 
area contains: 



Byte Contents 

X*90'-X*97' Constants used by many routines: 

X ( 40FFFF0000010002' 

X<98'-X*99' Address of first IOCB in the IOCB 

chain 

X*9 A'-X*9B* Address of IOCB of file currently 
being processed 

X^C'-X^D* Address of IOCB of a forced file 

XW-XW Address of first table load DTF 

X*A0 '-X'Al ' 1 P save area containing the error 

restart address for the First Page Out- 
put routine 

X'A2 9 -X*AT UDATE in user-specified format 

X'A2'-X*A3 ' UMONTH (UDAY if using European 
method of notation) 

X*A4 S -X*A5' LID AY (UMONTH if using European 
method of notation) 

X ( A6*-X'A7' UYEAR 
I X t A8'-X ( A9 7 Month and day of compile 

X* AA'-X* AB' Time of compile (HHMM Model 1 5 

only) 

X*AC'-X ( AF* Branch to controlled cancel 

X*B0'-X*B3' Branch to Input Mainline 

X*B4'-X'B8' Halt parameters used by the RPG II 

Halt frocessor 
X*B4' = X 4 43' 

xra^xw 

XW- X ( B7' = Console stick-light 
mask (see Halt/Syslog, IBM System/3 
Disk Systems System Control Pro- 
gram Logic Manual, SY2I -0502) 
X*B8* = Acceptable restart options 

X'B9'-X'BA' Address of alternate collating se- 
quence table 

X'BB'-X'BD' Constants used by output routines 
*CR*' 



X'BE'-X'BF 

xtxroccr 

Licensed Material-Property of IBM 



Address of ROCA 
Reserved 
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Note: The Dump Object Tables subroutine may use bytes 
X*9E'-X t AB' to receive inline code for use by the 

subroutine. 



Indicator Table 



The indicator table is located in ROCA at bytes 
X'C2 , -X t D9 > immediately following the constant area. 
Each possible RPG II indicator is assigned a location in 
the 26-byte table (Figure 4-4). 



Command key 
indicators 
(Model 6 only) 



































Hex Byte Mask 










Displacement 




















from XRt 


80 


40 


20 


10 


08 


04 


02 


01 




C2 


H4 


H3 


H2 


HI 




MR (Int.) 


MRfEx.l 


IP 


C3 


L1 


L0 


LR 


H9 


H8 


H7 


H6 


H5 




C4 


L9 


Lfl 


L7 


L6 


L5 


L4 


L3 


L2 






C5 


U1 


U2 


U3 


U4 


U5 


U6 


U7 


U8 








C6 
C7 


KH 
KQ 


KG 
KP 


KF 

KN 


KE 
KM 


KD 
KL 


KC 
KK 


KB 

KJ 


KA 
Kl 










cs 






















C9 


07 


06 


05 


04 


03 


02 


01 






CA 


15 


14 


13 


12 


11 


10 


09 


08 




CB 


23 


22 


21 


20 


19 


18 


17 


16 




CC 


31 


30 


29 


28 


27 


26 


25 


24 




CD 


39 


38 


37 


36 


35 


34 


33 


32 




CE 


47 


46 


45 


44 


43 


42 


41 


40 




CF 


55 


54 


53 


52 


51 


50 


49 


48 




DO 


63 


62 


61 


60 


59 


58 


57 


56 




D1 


71 


70 


69 


68 


67 


66 


65 


64 




D2 


79 


78 


77 


76 


75 


74 


73 


72 




D3 


87 


86 


85 


84 


83 


82 


81 


80 




D4 


95 


94 


93 


92 


91 


90 


89 


88 




D5 










99 


98 


97 


96 




D6 


OVEx. 


OGEx. 


OF Ex. 


OEEx. 


ODEx. 


OCEx. 


OB Ex. 


OAEx. 




D7 


OV1st 


OG 1st 


OF 1st 


OE 1st 


OD 1st 


OC 1st 


OB 1st 


OAlst 






Int. 


Int. 


Int. 


Int. 


Int. 


Int. 


Int. 


Int. 




D8 


OV2nd 


OG2nd 


OF 2nd 


OE2nd 


OD2nd 


OC2nd 


OB 2nd 


OA2nd 






Int. 


Int. 


Int. 


Int. 


Int. 


Int. 


Int. 


Int. 




D9 


Total 


Control 


Overflow 


EOF on 


Close 


* * RESERVED 








cycle 


fields 


being 


look- 


has been 












switch 


processed 


processed 


ahead 


entered 











Note: For each overflow indicator there are two internal indicators. The first 
second indicator indicates that the overflow output code has been fetched. 



nternal indicator indicates that overflow has occurred; the 



Ex. = External 
Int. = Internal 

Figure 4-4. Indicator Table 
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Secondary Work Area 



Define the Table < DTT) 



Byte X'DA' is not used. Byte XW contains the modifi- 
cation level of the compiler that generated the program. 
Byte X'DC contains the release (version) number of the 
compiler that generated the program. The remaining 
34 bytes in ROCA are used by the subroutines as a work 
area. The bytes from X'DD' to X'FF' are used as follows: 



Subroutine 

Load Object Tables 
Dump Object Tables 

DTF Parameter Save 

Area For Fetch 

Unpack 

Convert to Binary 

Command Key Indicator 

Set Routine 

Alternate Collating Sequence 

Convert to Decimal 

Pack 

File Translate 

Array Index 

Set Resulting Indicators 



Trailer Table 



Bytes Used 

X'DD'-X'EC' 
XW-X'DO' 
X'DA'-X'EA' 
X'DD'-X^' 

X'ET-X'FF' 
X'E8'-X'FF' 

X'EA'-X'ED' 

X'EA'-X'FF 
X'EC-X'FF' 
X'ED'-X'FF' 
X'Fl'-X'FF' 
X'F3'-X'FF 
X'FA'-X'FF' 



This 8-byte table is generated by phase SRPJS for each 
valid trailer record (TR) specification group found in the 
input specifications. The table format is: 



Byte 
0-1 



Contents 

Displacement in record to the low order 
end of the first trailer 



One 8-byte DTT is associated with each array or table in 
the object program. The DTT address may be found in the 
source listing. Each DTT is in the following format: 



Byte 
0-1 

2-3 

4-5 



6-7 



Contents 

Address of rightmost byte of the first 
array/table element 

Address of rightmost byte of the last 
array /table element 

Address of rightmost byte of last 
looked-up element if a table (used for 
work area if an array) 

Note: These bytes are initially the same 
as bytes 0-1. 

Length of one element 



Define the File (DTF) 

The DTF is the primary external interface to a program 
calling an access method. Compile-time phase SRPGN 
builds a pre-open DTF for each device specified. The pie- 
open DTF is passed to data management. During program 
open, data management modifies the pre-open DTF and 
returns it to RPG II as a post-open DTF. The size of the 
pre-open DTF built by phase SRPGN for disk files 
depends on the access method being used to process the 
file. For a detailed description of pre-open and post-open 
DTFs, see IBM Sy stem/ S Disk Systems Data Management 
and Input /Output Supervisor Logic Manual, SY2 1-0512, 
and/or IBM System/3 Model IS System Data Areas and 
Diagnostic Aids, SY21-O032. 



2-3 



4-5 



6-7 



Displacement to the low order end of 
the last trailer in group 

Displacement to current trailer (initially 
first) 

Actual length of one trailer 
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Alternating Collating Sequence and Translate Tables 

The alternate collating sequence and translate tables 
immediately precede the match field save area at X*BA' in 
ROCA. These two tables have the same format and similar 
uses. 



checking. The second save area contains the match values 
of the last selected primary file and is used to control the 
setting of the MR indicator. See Detailed Object Program 
Flow, Multifile and Matching Records Logic for further 
discussion. 



The first entry in each table is one byte containing the 
number of entries in the table. The remaining entries are 
two bytes each. The First byte is the external value; the 
second byte is the internal value. Each 2-byte entry 
corresponds to one user-specified entry (see Library of 
Subroutines). 



Match Field Save Areas 

Match field save areas are allocated in the Root Segment. 
The match field save areas can be found by locating the 
multifile logic code in the source listings. The first 
compare instruction contains the address of the first 
match field save area. 

If one file is specified as a match file, then one save area 
is set aside. If two or more files are designated as match 
files, two match field save areas are allocated in the Root 
Segment, Each area is only as long as the number of 
match levels specified. For example, if match field levels 
Ml, M3, and M4 are specified, then the save area would 
only be large enough to hold *M1M3M4\ 

Phase SRPHS generates and diagnoses the use of the 
match field save areas. Phase $RPHT generates the initial- 
izing object code. The first save area contains the match- 
ing values of the last selected file and is used for sequence 



Control Field Save Area 

The control field save area is located in the Root Segment 
immediately following the match field save areas. Control 
fields are defined on the input specifications. Hie control 
field save area can be found by locating the control field 
logic in the source listing. The address in the second MVC 
instruction is the address of the save area. 

The control field save area is only as long as the sum of all 
the control levels defined If there are three control levels, 
then the control field save area will be only large enough 
to contain the three levels. The levels are generated in 
descending order from L9 to LI. Phase SRPHS generates 
and diagnoses the use of the control fields. Phase SRPHT 
generates the initializing object code. 



Constants, Edit Words, and Edit Codes 

Constants and edit words are specified on the output- 
format specifications and generated as subsegments at 
compile time by phases $RPLN and SRPLR. When placed 
in the Root Segment, constants and edit words are 
optimized. For example, if constants *1 7 3' appear twice 
in output-format specifications, they are combined and 
entered in the Root Segment as '1 2 3\ Edit words can be 
optimized in a similar way. 
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Edit codes are specified on the output- format specifica- 
tions. Compiler phase SRPHT generates the edit patterns 
for the edit codes. Edit code patterns are placed in the 
Root Segment. 



Error Recovery Procedure (ERP) Area 

For every device used within the program, a 5-byte error 
recovery procedure area is set aside in the Root Segment. 
Data management returns addresses in the ERP area of 
where to go when an error occurs for each device. Each 
ERP area immediately follows the corresponding device 
DTP. 



Input and Output Buffers 

Main storage contains two buffer areas — an input buffer 
area and an output buffer area. There is one input buffer 
for each device type. The input buffer address can be 
found in the IOCB at post- open time (see IOCB in this 
section). 

An output buffer is assigned for each device specified. If 
the output buffer length is less than 144 bytes and if 
♦PRINT is not used (Model 10 or 12), the output buffer is 
located in the prime work area in ROC A. At post-open 
time, the address of the output buffer area may be found 
in the IOCB. 



Completion Codes from Data Management 

Data management passes a series of completion codes to 
RPG II in the post-open DTF at X'0E\ For a READ or 
GET the following codes are passed: 

Code Meaning 

40 Normal completion 

41 Controlled cancel requested 

42 End of file 
44* 



46' 



No record found, out of extent, 
DU, DG, DO 

Duplicate conversation reply requested 
(BSC) 



Code 
4B* 
4D* 
4E* 



Meaning 

Invalid ASCII code 

Invalid call by user 

Programmer lost communication 



For a PUT, WRITE, or ADD the following codes are 
passed: 



Code 

40 

41 

44 

46 

48 

4B* 

4D* 

4E* 

50* 

60* 

62* 

64* 

68* 

70* 

72* 



Meaning 

Normal completion 

Controlled cancel requested 

Updating a record not found 

Conversational reply requested (BSC) 

Overflow 

Invalid ASCII code 

Invalid call by user 

Programmer lost communication 

Key changed 

Duplicate add 

Add or load out of sequence 

Key too low or too high for indexed 
random multfvolume online file. 

Sequence ADD to multivolume indexed 
file because high key missing from 
previous volume. 

End of extent 

Key too high for last volume of multi- 
volume indexed file. 



* = These completion codes are sent to the RPG Halt 
Processor Transient ($$SYRP). 

For information about the RPG II Halt Processor 
Transient, see Library of Subroutines. 

RPG II passes a parameter list for each file device to data 
management in the DTF starting at XW. The Input 
Processing Control routine (IPCR) moves the parameters 
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from the IOCB to the DTF location. See Figures 4-5 and 
4-6 for parameter contents. For output, the parameters 
are moved by the output code to the DTF. For SET/KEY 
operations, the parameters are moved by the SET/KEY 
code to the DTF (Model 6 only). 



Input/Output Control Block (IOCBJ 

The input/output control block (IOCB) contains informa- 
tion about files. Compile-time phase SRPGN builds a 
1 7-byte IOCB for each output file and a 38-byte IOCB 
for each input file. The address of the first IOCB may be 
found at X t 99' of ROCA IOCBs are chained together 
with the address of the next IOCB location at bytes 2-3 
of each IOCB. The chain and read record parameters are 
moved into bytes 24-30 by the Chain and Read routine. 
Bytes 21-37 are entered into the IOCB at object time by 
the Record ID routine. Each IOCB contains: 



Byte 


Bit 


Contents 








1 = End of file has occurred 




1 


1 = Hie not open 




2 


1 - Identify look-ahead file 




3 


1 = Non-input control file (not 
primary or secondary) 




4 


1 = Translate file 




6 


1 = End-of-file specified on file 
description specifications 




7 


1 = Buffer full (does not need to be 
read from this cycle) 



Byte 


Bit 


Contents 


I 





1 = BSCA 'last' file 




I 


1 = Limits file 




2 


1 = Combined file 




3 
4-6 


1 = Update file 
Record address type 
000 = Data base 
010= Key 
100= Record ID 
110= Record number 




7 


1 = Record address file 


2-3 




IOCB chain address 


4-5 




DTF address 


6-7 




Translate table address 


8-9 




File relation address ('from' or 'to 1 
IOCB addresses for record address 
files or tables) 



10 
11-12 

13-14 

15 

16 



Overflow indicator mask 
Record length 

Address of output work area 
Sequence number (in binary) 
External indicator 
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If the file is an output file only, the following entries will 
not be present: 



Byte Bit 

17-18 

19-20 

21-23 



24 



25-26 

27 

28 04 

5^7 



0-7 



Contents 

Input buffer address 

Alphabetic sequence input record 
processing address 

Address of last numeric input record 
processed and sequence information 
(byte 23 identical to byte 37) 

Communication byte X*01' = Stacker 
select request (Models 10 and 12) 
X*02* = Data fields present in record 
X'04' = Control fields present in 

record 
X*08' = Matching fields present in 

records 
X*10' = Numeric sequence in record 
^20* = Console file 
X*40' = Numeric sequence in this 

file 
XW = Recycle check bit (If all 

numeric sequence checking 
is optional, this bit is used 
to determine if a record 
does not fit any of the 
numeric sequences, indicating 
an error.) 

Resulting indicator mask and 
displacement 

Operation code for IOCS 

If MFCU stacker, not used; 1 
if console, entire byte con- 
tains input buffer length 
000 = No select ( Model 

010 = Print 4 tiers \ 10 or 

100 = Stacker 4 12 

101 = Stacker 1 

1 10 = Stacker 2 

111 = Stacker 3 



XW = No select 
X'01' = Stacker 1 
X*02' = Stacker 2 
X*03' = Stacker 3 
XW = Stacker 4 
X*05' = Stacker 5 



MFCU 

and 

MFCM 

MFCM only 



Model 

15 

only 



Byte Bit Contents 

29-30 Address of Move Input Fields, code 

for this record type 

3 1-32 Address of Control Fields Move 

code for this record type 

33-34 Address of Matching Records moves 

code for this record type 

35-36 Address of next numeric sequence 

checking code for this file 

37 Numeric sequence information 

X'Or 1 = Numerous 

= One 
X*02' 1 = Mandatory record found 
XW 1= Mandatory 

= Optional 



| OVERLAYS {MODELS 6, 10, and 121 

The RPG II Compiler uses a unique overlay system. This 
discussion concerns three areas of the overlay structure. 
First, the basic overlay concepts are discussed and defined. 
Then, the technique employed in RPG II is discussed in- 
cluding the Overlay Fetch routine and the overlay fetch 
table. Finally there is a section to help determine how to 
find an overlay and its contents in a source listing. 



Overlay Concept 

When the size of the program to be generated exceeds the 
size of main storage, an overlay program is required. An 
overlay program uses the same areas in main storage dur- 
ing different stages of a problem. When one segment of 
code is no longer needed in main storage, another seg- 
ment can replace all or part of it. The RPG II Compiler 
uses an automatic overlay editor which determines 
during compile time the overlay structure of the object 
program. 



Segments 

The first step required to generate overlays is to divide 
the object program into segments. A segment is part of a 
program that is a logical unit of code and can be identi- 
fied separately from other object code. There are three 
segment types in RPG II: the Root Segment, mainline 
segments, and subsegments. 
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Root Segment 

The Root Segment is unique since it is the only segment 
that remains in main storage throughout execution of the 
program. It cannot be overlaid. The Root Segment has 
no fixed size. It contains the RPG II work area including 
indicators, DTFs, IOBs, IOCBs, buffers, data fields, and 
tables. In short, all data used in more than one cycle 
during execution must be stored in the Root Segment. 
The Overlay Fetch routine (see Overlay Fetch Routine in 
this section) is the only routine that is required in the 
Root Segment. 

A segment may access the Root Segment at anytime with 
any instruction. The Root Segment, however, can access 
other segments only by using a branch instruction. 



Mainline Segments 

The mainline segments contain cycle control for the 
RPG II object program. Mainline segments may be 
called only by other mainlines with only simple branches 
(no branch and return) allowed. The mainlines in RPG II 
are: 

1. Open 

2. Detail Output 

3. Input Records 

4. Total Calculations 

5. Total Output 

6. LR and Overflow Control 

7. Input Fields 

8. Detail Calculations 

9. Program Close 

Subsegments 

Subsegments are routines or subroutines that can be 
called by mainline segments or other subsegments. Con- 
trol is always returned to the calling segments or sub- 
segments. The RPG II subsegments are: 

All library subroutines 

Record ID Processing 



Multifile Logic Processing 

Control Fields Processing 

LR Output 

LR Calculations 

OA-OV Overflow 

Input Processing Control routine 

Output Processing Control routine 

Exception Output 

Fetch Overflow 

Chain Code Blocks 

I/O Interface Blocks 

Output Field Moves, not inline 

Overlay Priority 

Each program contains segments of code which are fre- 
quently used and others which are seldom required during 
execution. The overlay editor (phases $RPSB and $RPSE) 
calculates an effective overlay structure. 

Each segment or subsegment gets a priority number 
assigned specifying the frequency with which it is called. 
For practical reasons, the numbers are assigned in reverse 
order, which means that the highest priority is represented 
by the lowest number. The highest priority is reserved for 
the Root Segment because it must be in storage at all 
times. The priorities are: 



Priority (hex) 


Description 


00 


Root Segment 


00 


Overlay Fetch routine 


00 


Transfer vector table (to call main 




overlays) 


00 


Overlay area 


00 


File Translate subroutine 


01 


Detail Output Mainline 


03 


Input Mainline 


01 


Total Calculations Mainline 


01 


Total Output Mainline 


01 


LR and Overflow Control Mainline 


01 


Input Processing Control routine 




(IPCR) Subsegment 
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Figure 4-5. Model 6 Data Management Parameters 
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Byte 


Bit 


MFCU 


Disk 


Printer 


Console 


Special 


BSCA 








Read 


Get 




Input* 


Input 


Input 


1 


Print 


Put/Add 


Print 


Output* 


Output 


Output 


2 


Punch 


Update 










3 


Move 






'T'-type inquiry 
program 






4 














5 














6 

7 








Accept characters only 






Do not clear output buffer 


1 


2 


Print 4 
lines 




Skip 
before 


Number of bytes to 
be printed 






5-7 


Stacker 
select 


2 








Space 
before 


Number of bytes to 
be read on WTO R* 






3 








Skip 


Zone: Space before 
Digit: Space after 






4 








Space 

after 









*WTOR = Write to operator with reply specified 
Figure 4-6. Models 10 and 12 Data Management Parameters 
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Priority (hex) Description 



01 
01 

01 



Input fields 

Output Processing Control routine 

(OPCR) Subsegment 

Literals, constants, edit patterns, and 

parameters 



01 


Detail Calculations Mainline 


01 


Record Identification processing 


01 


Multi-file Logic processing 


01 


Control Fields processing 


03 


Alternate Collating Sequence sub- 




routine 


04 


Set resulting Indicators subroutine 


08 


Array Index subroutine 


15 


Multiply subroutine 


15 


I/O Hook 


15-1A* 


Calculation subroutines (SR in 




cols 7 and 8) 


16 


Exception Output Subsegment 


20 


LOKUP subroutine 


22 


Pack subroutine 


22 


Unpack subroutine 


25 


Divide subroutine 


28 


TESTZ subroutine 


30 


Convert to Binary subroutine 


30 


Convert to Decimal Subroutine 


32 


RA File Process subroutine 


32 


Square Root subroutine 


32 


Chain code block 


36 


DEBUG subroutine 


40 


Fetch Overflow Subsegment 


40 


OA Overflow Subsegment 


40 


OB Overflow Subsegment 


40 


OC Overflow Subsegment 


40 


OD Overflow Subsegment 


40 


OE Overflow Subsegment 


40 


OF Overflow Subsegment 


40 


OG Overflow Subsegment 


40 


OV Overflow Subsegment 


56 


Open Mainline 


56 


Program Close Mainline 


64 


LR Output Subsegment 


64 


LR Calculations Subsegment 


64 


Load Object Tables 


64 


Dump Object Tables 


*The first Calculation subroutine in the source code will 


receive a priority of 15, the second 16, and so forth until 


1 A is assigned. 


After that, all other calculation sub- 


routines will receive 1 A priorities. 



lay area. The main overlay area has a minimum size of 256 
bytes (one sector). Subsegments may become suboverlays 
which are stored in the suboverlay area. The minimum 
size of the suboverlay area is also 256 bytes (one sector). 
Suboverlays can be called only by mainlines. If a sub- 
segment calls another subsegment, only one suboverlay 
containing both subsegments is generated. With this 
method, overlays that are too large for storage space can 
be reduced by breaking out some subsegments and 
generating suboverlays. The size of the overlay areas is 
increased to the size of the largest overlay if this proves 
necessary. Multiple suboverlays may be generated for one 
mainline. However, only one of these may be in main 
storage at any given time. 

Overlay Technique 

If the available storage size specified on the control state- 
ment is smaller than the object program size, overlays are 
required. The Overlay phases have two different func- 
tions. First, they format the object code generated by 
the Assign and Assemble phases for use by the linkage 
editor. Second, they create overlays by using an automatic 
overlay editor (phases $RPSB and $RPSF). Chart FA gives 
a general description of the overlay phases. 

Overlay Editor 

If it is determined that overlays are necessary, phase 
SRPSB acts as the overlay editor. Using the segment list 
built by the previous overlay phases, the overlay editor 
begins the following 3-step cycle for each segment and 
subsegment in the list: 

1. Flags the segment or subsegment that has the 
lowest priority and has not previously been flagged 
as a main overlay or suboverlay. 

2. Determines the length of the main overlay or sub- 
overlay areas and adds the length to the total pro- 
gram. 

3. Subtracts the length of the main overlay or sub- 
overlay from the total program. 

These three steps are repeated until one of two things 
happen: 

1. The total program is reduced to a size that will fit 
in main storage. 



Suboverlays 

RPG II has a 2-level overlay structure. Mainline segments 
may become overlays. They are loaded in the main over- 



All of the segments and subsegments are flagged as 
main overlays or suboverlays and the total program 
is still too big. In this case, an error message is 
written. 
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If the 3-step cycle is completed successfully, the overlay 
editor completes the task of flagging the remaining seg- 
ments and subsegments as overlays and suboverlays. 

Next the overlay editor (phase SRPSF) checks to see if, 
during the process of taking segments and subsegments 
out of the total program (overlaying), the total program 
was reduced so that it has some unused storage space. 
The unused storage space is then refilled with overlays 
previously taken out 

In addition to the overlay cycle described, the overlay 
editor does some optimizing of the overlays. Two or 
more smaller overlays are often combined to make one 
larger one if their combined size does not exceed the 
main overlay and/ or suboverlay areas. In addition, 
small suboverlays can be combined with a small main 
overlay if they will be used by the small main overlay 
and the created overlay does not exceed the combined 
size of the overlay areas. 



Overlay Fetch Routine 

The Overlay Fetch routine, built by phase SRPSG, is 128 
bytes long. The main function of this routine is to fetch 
overlays from access devices into the overlay areas in 
main storage. In addition, bits are set in the overlay fetch 
table telling where the overlays are. 

The Overlay Fetch routine requires three parameters as 
input. They are: 



After checking all entries in the overlay fetch table, the 
entry of the overlay to be called in is flagged as in main 
storage and the overlay is loaded into main storage. The 
Overlay Fetch routine exits to the overlay. Chart FB 
gives a description of the Overlay Fetch routine. 



Overlay Fetch Table 

The overlay fetch table built by compiler phase SRPSG 
contains one 7-byte entry for each overlay or suboverlay 
in this format: 



Byte 


Bit 


Contents 


0-1 




Cylinder/sector address of overlay 
relative to the Root Segment 


2 




Number of text sectors 


3-4 




Storage address where overlays are 
loaded 



Overlay number ( 1 byte) 



Displacement of relocation dictionary 
in last text sector 

1 = Overlay in storage now 

1 1 = Overlay using overlay area (bit 2 

can also be on) 

2 1 = Overlay using suboverlay area 

(bit 1 can also be on) 
3-6 Unused 

7 1 = Special OPEN/CLOSE mainline 



2. Entry address of the overlay (2 bytes) 

3. Return address from the overlay (2 bytes) 

Phase SRPSG builds a transfer vector containing the input 
to the Overlay Fetch routine. The transfer vector con- 
tains these instructions: 



ST OVFRSl,ARR 

B OVFR 

DC 1,X'NN' 

DC 2,A'ENTRY' 



Save the return address 
Call the Overlay Fetch routine 
One byte containing the 
overlay number minus one 
Two-byte entry address 



The Overlay Fetch routine checks to see if the overlay 
passed is in main storage. If it is, the routine branches 
to the overlay. If it is not in main storage, the overlay 
fetch table entries are checked to see if they use the 
same main storage. If they do, the overlay is flagged as 
not being in main storage. 



How to Find an Overlay 

The following steps may be used to determine what over- 
lays are in main storage when a process check occurs and 
where to find them. 



1. Locate the address of the Overlay Fetch routine on 
the core usage map of the source listing (Figure 4-7, 
part 1). 

2. Locate the overlay fetch table in the dump. The 
overlay fetch table is 1 1 5 bytes past the start 
address of the Overlay Fetch routine. It can be 
obtained by this hex formula: Address of Overlay 
Fetch routine +X'73* = Overlay fetch table (Figure 
4-7, part 2). 

3. Mark off every 7-byte entry in the overlay fetch 
table until the last entry is reached. The last entry 
is X'FF' (Figure 4-7, part 2). 
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****11********* 

I- * 

' EHTRY * 



*****B1 ********** 

• * 
•GBHEFATE FIHAL * 

* SECHEHT LIST + 



***************** 



CI *. 

* DOES ' 
OBJ *>ROG 

FIT IH 
STORAGE ' 



BO 



■ D1 < 

■ i 

**** 



•****D1**** •*«*** 
*CALCITLATE START* 

* ADDS FOR EACH * 

* SEGSEHT OP * 

* SDBSEQHEHT * 



****£1********* 



GENERATE FETCH 
TABLE 



****pi ********* 



FORMAT OBJECT 
CODE 



****G1********* 

EXIT < 
i > 

*************** 



*****C2 ********** 



*IHCLTOB OVERLAY* 
>* FETCH ROOTIHE * 



4. Number each entry, left to right, starting with num- 
ber 1. Each entry refers to an overlay. 

5. Look at the seventh byte in each entry. This is the 
flag byte. The first bit will be on for every overlay 
in storage at the time of the dump. 

6. Compare the numbers you have given the overlays 
in storage at the time of the dump with the number 
of the overlays in the core usage map (Figure 4-7, 
part 1). This gives the names and addresses of the 
segments within the overlays which were in storage 
at the time of the dump. 

For further understanding of the areas within the over- 
lays, see the detail flowcharts in this section. 



*****D2 ********* 

* CALCDLATE 
♦OBJECT PROGRAH 

* LEHGTH BIROS 

* OVERLAYS 



E2 *. 

.* DOES *. 

■* OBJ FROG *. 

FIT IS 
*.ST08AGE ?.* 



* WO 



1. 



E3 



****B3********* 



TAKE ELENEHT 

HITH LOHFST 

PRIORITY AMD 

FLAG: OVERLAY 



LAST 
OVERLAY 

.CHECKED " 



YES 



*****G2 ********** 

* • 

* CALCDLATE + 

* OVEBLAY ADD * 
•SUBOVEBLAY AREA* 

* * 
***************** 



■ D1 < 
> i 

*•*• 



*****G 3** ******** 



HITH HIGHEST 
PRIORITY 



***************** 



H3 *. 
••DOBS IT*. 

.* FIT TH *. 

*. OVEBLAY AREA . 

*. ? .* 

*. .* 


HO 

... 


*, . * 


V 


* YES 


**** 






* E3 

* 






• •** 



****j3********* 

IHCLGDE 

50BOYERLAT IH 

OVEBLAY 



*****X 3**** ****** 



* CALCULATE., * 
■*SDBOVERLAY AREA* 



***************** 



Chart FA. General Overlay Flow 
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•••••B1 *+••*•*••• 



• SAVE REGISTERS * 
•SET PARABETESS * 



****«Ct ********** 
♦SET POUTER TO * 

• CORREBT ERTRY * 

• I J OVERLAY * 

• FETCH TABLE • 



D1 *. 

♦ * 
OVERLAY 
IH Bill 

STORAGE ' 



• BO 



yes 






•***D3 ********* 

HEI.OAD 
REGISTERS 



EXIT 



TO:OVBRLAY 



* LOAD XB2 * 

* POIBTER TO * 

* START OP • 

* OVBBLAX FETCH * 

* TABLE * 



**** 

* * 

* F1 *-> 

* * 
**** 



• OVERLAY *. 

USES 5ABE . 

•-STORAGE ?-* 



TBS 



HO 



*****G1 ♦*•*****♦* 



•SET M2 TO BBIT* 
* TABLE BBTRT * 



***** r 2 ********* 
• 

• set orr BIT 

* OVERLAY IB 



HI 



• 
*. 


LAST *. YES 
EBTRY -• 

CHECKED ?_• 

•- -• 

*- . * 
• MO 
1 •*** 




• ♦ 




L->* ri * 



•****H2********** 
•RELOAD POIRTER • 

* TO CDHHERT • 
>* BBTRT- SET OR •■ 

* BIT IB CORE * 



*****H3 ********* 
•RPG-LOAD 

• CALL PETCH 

* OVERLAY 



• RELOAD 
>• REGISTERS 



****H5********* 
->* EIIT * 



TO;07ERLAY 



Chart FB. Overlay Fetch Routine 
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INDICATORS USED 
LR 01 02 

RG 314 UNREFERENCED FIELD NAMES 

STMT* NAME DEC LGTH DISP 

0005 NODATA 001 0100 

FIELD NAMES USED 

STMT* NAME DEC LGTH DISP 

0005 NODATA 001 0100 

0006 COUNT O 006 0106 

0007 RECNBR 003 0109 



ERROR SEVERITY TEXT 

RG 314 U FIELD* TABLE OR ARRAY NAME DEFINED BUT NEVER USED, 

ADDRESS OF OVERLAY 

'FETCH ROUTINE 











CORE USAGE OF 


RPGII CODE 


START 


f NAME IF 


CODE 


NAME 


TITLE 




ADDR / 


OVERLAY 


LENGTH 








ocoo/ 




04F6 


RGROOT 


ROOT 




|10F6| 




017E 


RGSUBS 


OVERLAY FETCH ROUTINE 


1274 




0600 


RGSUBS 


OVERLAY FETCH AREA 


12E6 


*$$001 


008E 


RGMAIN 


input MAINLINE 




127C 


*$$001 


006A 


RGSUBS 


INPUT CTRL RTN 




1374 


*$$001 


0O3A 


RGSUBS 


RECORD ID 


OVERLAY IN S 


13AE 


£$$001 


0026 


RGSUBS 


CONTROL FIELDS 


1274 


*$$001 


0008 


RGSUBS 


SUBSEG 






*$$001 


0027 


$$BDMC 


SYSTEM SLIER 




1282 


*$$002 


0066 


RGMAIN 


TOTAL. CALCS 




1274 


S$$002 


OOOE 


RGSUBS 


CONSTANTS 




1274 


40*003 


0022 


RGMAIN 


INPUT FIELDS 




133D 


S$$004 


0048 


RGMAIN 


DETAIL CALCS 




132A 


S$$004 


0005 


RGSUBS 


CONSTANTS 




132F 


±$$004 


OOOE 


RGSUBS 


CONSTANTS 




1280 


*$$004 


OOAA 


RGSUBS 


OUTPUT CTRL RTN 






3$$004 


0043 


$$PGRI 


RESET RESULTING 


INDR 


1385 


S=$$004 


0031 


RGSUBS 


EXCEPTION 




1274 


*$$004 


OOOC 


RGSUBS 


SUBSEG 






4$$004 


005F 


$$IOUT 


DISK INDEXED OUTPUT 




S$$004 


0094 


$$SR6I 


SYSTEM SUBR 






*$$004 


0026 


$$SRUA 


SYSTEM SUBR 






*$$004 


007B 


$$SRBR 


SYSTEM SUBR 






±$$004 


001C 


$$SRDF 


SYSTEM SUBR 






ft$$004 


ooic 


$$SRTC 


SYSTEM SUBR 






*$$004 


002F 


$$SRBP 


SYSTEM SUBR 






±$$004 


0019 


$$SRCR 


SYSTEM SUBR 






±$$004 


0015 


$$SRPD 


SYSTEM SUBR 






±$$004 


0081 


$$SRMO 


SYSTEM SUBR 






±$$004 


0043 


$$SRSB 


SYSTEM SUBR 






±$$004 


0015 


$$SRRD 


SYSTEM SUBR 




1274 


±$$005 


OOOB 


RGMAIN 


TOTAL OUTPUT 




1347 


±$$006 


0024 


RGMAIN 


LR & OVERFLOW PROCESSING 


1280 


±$$006 


OOAA 


RGSUBS 


OUTPUT CTRL RTN 




132A 


±$$006 


001D 


RGSUBS 


OVERFLOW SUBSEGMENT 


1274 


±$$006 


OOOC 


RGSUBS 


SUBSEG 






$$$006 


0027 


$$BDMC 


SYSTEM SUBR 




1438 


±$$007 


0024 


RGMAIN 


CLOSE 




1280 


±$$007 


OOAA 


RGSUBS 


OUTPUT CTRL RTN 





1416 
132A 
145C 
1274 

1424 
1274 



=$$007 

= $$007 
=$$007 
=$$007 
>$$007 
>S$007 
=$$008 



OOOE 
OOEC 
0076 
OOOC 
0027 
0014 
0072 



RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
$$BDMC 
RGSUBS 
RGMAIN 



CONSTANTS 

CONSTANTS 

LR PROCESSING 

SUBSEG 

SYSTEM SUBR 

LR CALCS 

OPEN 



03144 SAMPL1 TOTAL CORE USAGE 
RG 999 U PROGRAM EXCEEDS CORE IN COLUMNS 12 THRU 14 OF HEADER CARD 
RRABC 12 3 

Figure 4-7 (Part 1 of 2). Overlay Sample 
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0E60 00000000 00000000 00004040 40404040 40404040 40404040 40404040 40404040 
OES0 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 
OEAO 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 
OECO 40404040 40404040 40404008 40A800C9 80000EE0 00000000 00800013 0ECA0B70 
OEEO 00000004 00000000 00000000 00000000 00000000 00000000 00000000 00000000 
OFOO 00000000 00000000 00000000 00000000 00040000 00000000 OOOOOOOO 00000000 
0F20 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 
OFCO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 
OFEO C95C40A9 OOC90000 0FF60020 004001DA 0D7OOFE0 0D70FFFF FFFFFFFF FFFFFFFF 
1000 FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
10CO FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 



OVERLAY FETCH ROUTINE 
10E0 FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFF3401 1156C201 10F67404 



1.100 6C740264 740814C2 02UCC6C 0270027C 0771B202 7376026E 5F007172 D0011FB8 

1120 8006F210 286C003A 0674024E D20273B9 6006F210 03BB8006 E20207BD FF00D001 

1140 39C20211 69BA8006 C08 7Q004 4075086A 75046CC2 01QCO0C2 020PftD35 10116612 

1160 E6070100 0012E6OO Ol| oOOE02 12740d£o)[ 001101 12 74006o|oO 13011274 004olo015 

~s I 8 \ I 7 I 8 

1180 0512 7400 60)008301 12740040 1 008502t2\740060iQO 88031274 0060K>08C 01127400 



FIRST BIT ON 
11A0 40FF0000 OOOOOOOO OOOOOOOO 00003408 1160C087 10F60712 74340811 60C08710 

END OF OVERLAY FETCH TABLE 
11C0 F6061438 340B1160 C08710F6 0012E634 081160CO 8710F601 12823408 1160C087 

11E0 10F60513 47340811 60C08710 F606143F 34081160 C08710F6 04127434 081160C0 

1200 B710F603 133D3408 1160C087 10F60614 47340811 60C06710 F606144B 34081160 

1220 C08710F6 02127400 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

1240 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

1260 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO C20113D4 3510127D 127E3408 

1280 L2E53401 12A9E201 OO75020S BD1200F2 0106B810 03F2900E 9C000F1B 792118F2 

12A0 10049C0O 101CC0FF 13D46C01 120DBD41 0EF28224 F28109BB 440EF282 0DF28112 

I.2C0 C2020C&4 C0870004 8F407A80 00F28708 00030E01 12E512B1 BD400EB2 0200C201 

12E0 0C00C087 13607B02 C97BF1C2 7B9FC37B FFC47A40 C37820C3 C0101323 0C011310 

1300 13717302 99B81000 F210120C 01135F13 751E0113 1097B9C1 O0CO1O13 59B88000 

1320 F290067A FFC47AC0 C3C08713 AEC08711 CFC087L1 DA3C3213 58F2870D 3C301358 

1340 B80118F2 9003&C00 JCBB0100 E20100C2 020CB4CO 8700048F 0074083C C0871274 

1360 B88000F2 1004CX87 13 74BA01 0075103C 13731274 B50112B5 10143408 1381C201 



Figure 4-7 (Part 2 of 2). Overlay Sample 
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*I* . 


.1. . .6. ...... . .* 


tf. . . . 
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*•.... 


, „ .* 


**.... 


B_ _6. .* 


*%. . . 


...B...%...S..K....>T * 


*..2- 

♦i.B.. 


.7. +K...-.2 S ..* 

2ft. Pi » 


OVERLAY FETCH TABLE 

*W.„. r .U -. _K 


♦*.,-.• 


- ....—......-...«..* 


* ... 


- 6 -...* 


*6 


. . «- 6..W - 6 -..* 


*-6. . 


........6 -...6 .-.# 


*. .6. 


-...6 -...6 -* 


*. . .6 


..„..# 


*. . . . 


. * 


*. _ . - 


B..H T .-. .* 


*.V. . 


..S ...2 2 2* 


*« . . . 
«B... 
*. . . . 
*. . . . 


MX 2. .2 2.-2. ,* 

:- -2 V.J. .K. .B.* 

.-*.I*1B*.C*.D: C..C... * 

2 -i A * 


*?. . : 


,D: „C 2 * 


tt 2 


S..B * 


*. .-2 


B.* 
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OVERLAYS (MODEL 15) 

An overlay program is required if the size of the program to 
be generated is greater than the amount of main storage 
available for execution of the program. The Overlay Link- 
age Editor calculates an effective overlay structure. See 
IBM System/ 3 Overlay Linkage Editor and Checkpoint/Re- 
start Program Logic Manual (SY2 1-0530), for detailed infor- 
mation about the Overlay Linkage Editor. 



Overlay Category 

Each program is made up of segments of code. Some seg- 
ments are frequently used and others are seldom required 
during execution of the program. Each segment or subseg- 
ment is assigned a category number specifying the frequency 
with which it is called. The lower category numbers are 
assigned to the most frequently used segments, the higher 
category numbers to the less frequently used segments. 
There is one exception to this, category 126, which contains 
RPG mainlines and other frequently called segments and 
receives special handling by the Overlay linkage Editor. 
Category 00 is non overlay able and must remain in main 
storage at all times during execution of the program. 

The categories are as follows: 



Category Mnemonic 
(decimal) ID 



00 
00 

00 



00 

00 
00 
00 
00 

00 
00 
00 
00 
00 
00 

00 

00 



GLOBAL 
COMMON 

Object 
Program 
Name (from 
$#RT02 

$#MISC 
$#EPCR 
$#OPCR 

$#CON0-F 

$$PGAB 
$$PGBB 
$$PGBC 
$$PGBG 
$$PGBP 
$$PGRB 

$$PGRG 

$$PGRP 



Description 

Buffers and IOBs 
Fields, pre-execution and execu- 
tion time table/array 
ROCA, pre-execution and execu- 
tion time table/array DTTs 
col. 75-80 of the RPG Header Card) 
IOCBs, DTFs, DTTs and compile 
time table/array 
Edit codes, SETLL code, etc 
Input Processing Control routine 
Output Processing Control routine 
Literals, constants, edit patterns 
and parameters 
File Translate routine 
BSCA logic for transmit/receive 
BSCA logic for conversational 
BSCA logic for receive 
BSCA logic for transmit 
BSCA logic for transmit/receive 
(2770/2780) 

BSCA logic for recieve (2770/ 
2780) 

BSCA logic for transmit (2770/ 
2780) 



DEBUG Routine 

Alternate Collating Sequence 

routine 

Set Resulting Indicator routine 

Array Index routine 

Input hook (number = file 

number) 

Output hook (number- file 

number) 

Calculation subroutines 

Multiply subroutine 

Exception Output Segment 

Move Output Field for OR lines 

LOKUP routine 

Pack routine 

Unpack routine 

Divide routine 

Display routine 

TESTZ routine 

MOVEA routine 

Convert to Binary routine 

Convert to Decimal routine 

RA File Processing routine 

Chain Code Subsegment 

Square Root routine 

OA Overflow routine 

OB Overflow routine 

OC Overflow routine 

OD Overflow routine 

OE Overflow routine 

OF Overflow routine 

OG Overflow routine 

OV Overflow routine 

Fetch Overflow routine 

Open Mainline 

Close Mainline 

Load Object Tables 

Dump Object Tables 

LR Output 

LR Calculations 

Detail Output Mainline 

Input Mainline 

Total Calculations Mainline 

Total Output Mainline 

LR and Overflow Processing 

Mainline 

Input Fields Mainline 

Detail Calculations Mainline 

Record ED routine 

Multi-File Logic routine 

Control Fields Processing routine 



*The first five calculation subroutines in the source code 
are assigned categories 28 through 32 respectively. All 
other subroutines are assigned category 33. 



00 


$$PGDC 


10 


$$PGDI 


11 


$$PGRI 


15 


$$PGAA 


28 


$#H01-19 


28 


$#OH01-14 


28-33* 


$#SR00-FF 


28 


$$PGMC 


29 


$#EXPT 


35 


$#MF01-FF 


39 


$$PGLC 


41 


$$PGCO 


41 


$$PGCI 


44 


$$PGIC 


45 


$$PGDP 


47 


$$PGTC 


48 


$$PGMA 


55 


$$PGBI 


55 


$$PGBO 


57 


$#RAFL 


57 


$#CHN0-F 


57 


$$PGAC 


71 


$#OAOF 


71 


$#OBOF 


71 


$#OCOF 


71 


$#ODOF 


71 


$#OEOF 


71 


$#OFOF 


71 


$#OGOF 


71 


$#OVOF 


71 


$#FOVF 


93 


$#OPEN 


93 


$#CLOS 


107 


$$PGFI 


107 


$$PGFO 


107 


$#LROT 


107 


$#LRC 


126 


$#DOUT 


126 


$#INPT 


126 


$#TCAL 


126 


$#rour 


126 


$#LROF 


126 


$#IFLD 


126 


$#DCAL 


126 


$#RCID 


126 


$*MFLG 


126 


$#CFLD 
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DUMP ANALYSIS 

This section presents an aid for examining the areas of a 
storage dump of an RPG II Compiler program. 

Figures 4-8 through 4-11 show the source listings of the 
specification statements for two Model 6 sample programs 
and the sample storage dumps of these two programs. 

Figures 4-12 through 4-15 show the source listing of the 
specification statements for two Model 10 sample programs 
and the sample storage dumps of these two programs. 
Figures 4-12 through 4-15 can also be used as an aid for 
exarmning storage dump areas of an RPG II Compiler 
program for the Model 12. 

Figures 4-16 through 4-19 show the source listing of the 
specification statements for two Model 1 5 sample programs 
and the sample storage dumps of these two programs. 
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0101 H 



000 



SAMPL 1 



0001 
0002 
0003 



0.102 
0103 
0104 
0105 
0106 
0107 
01 OB 
010S 
0109 
0110 
0.111 
0112 
0113 
0114 
OliS 
0116 
01.17 

ona 

01.19 
0120 
0121 
0122 
0123 



1- LOADS 100 RECORDS TO AN INDEXED FILL' 



2. READS ONLY A BLANK RECORD AND A /* RECORD.* 
AB INPUT DATA. * 



F***W*X-**-K-«-K-*«*t***«#**1** *■*?#** *********** *****•*■* ■***■ 

F* * 

F* THIS PROGRAM - * 

Fk * 

F* 

F* 

F* 

F* 

F* 

F* 

F* 

F* 

F* 

F* 

F* 

F* 

Fx 

F* 

F* * 

F* ************* # ** * * * ******** ****** ** ************ * 

F INPUT IPE F 9 6 96 CONSOLE 

FDISKOUT F 256 128 06 A I 1 DISK 

FDUTPUT F 1 132 TRACTR1 



3. CREATES THE OUTPUT DATA USING A 

LOOP IN THE CALCULATION SPEC I FI CATIONS, 

4- USES KEYS FROH 000005 THROUGH 000500 
IN INCREMENTS OF 3. 

5- SHOULD BE FOLLOWED DY SAMPLE PROORAM 2 
TO VERIFY THAT THE FILE WAS PROPERLY 
LOADED. 



01 



SAMPL 1 
SAMPL.1 
SAMPL 1 
SAMPL 1 
BArtPLl 
&AMPL1 
SAMPLE 
SAMPL.1 
SAMPL.l 
SAMPL.1 
SAMPL* 
SAMPL 1 
SAMPL 1 
SAMP LI 
SAMPL 1 
SAMPL 1 
SAMPL.1 
SAM Pi. 1 
SAM PL I 
SAMPL 1 
SAMPL.l 
SAMPL 1 



0004 
0005 



0201 I INPUT 

0202 I 



NS 01 



1 C 



1 NODATA 



SAMPL 1 
SAMPL 1 



0006 


0301 C 


01 




2-A0D0 


COUNT 


60 


0007 


0302 C 


0.1 




2-ADDO 


RECNBR 


30 


000(3 


0303 C 




REPEAT 


TAG 






0009 


0304 C 


01 


COUNT 


ADD 5 


COUNT 




0010 


030S C 


01 


RECNBR 


ADD 1 


RECNBR 




0011 


0306 C 


01 


COUNT 


COMP 505 






0012 


0307 t; 


01N02 




FXCPT 






0013 


030-B C 


01N02 




ROTO REPEAT 






0014 


0309 CLR 




RECNBR 


SUB 1 


RECNPR 





02 



BAM PL 1 
SAMPL.1 
3 AM PL. 1 
SAMPL.1 
BAM PL 1 
BAMPI..1 
SAMPL 1 
FiAMPLl 
SAMPL 1 



0015 


0401 OOUTPUT 


0016 


0402 


0017 


0403 


0018 


0404 


0019 


0405 


0020 


0406 


0021 


0408 


0022 


0409 



201 



LR 



LR 



20 'SAMPLE PROGRAM 1 HAS" 
27 'LOADED' 

RECNDEZ 31 

39 "RECORDS' 

61 "INTO AN INDEXED FILE,' 

21 "KEYS ARE IN ASCENDING' 



SAMPL.l 
SAMPL 1 
SAMPL 1 
QAM PL J 
SAMPL1 
SAMPL 1 
SAMPL.1 
SAMPL 1 



0023 


0410 





0024 


0411 





0025 


0412 





0026 


0413 


T 


0027 


0414 





0029 


0415 





0029 


0416 





0030 


0417 


D 


0031 


0501 


ODISKOUT E 


0032 


0502 





0033 


0503 





0034 


0504 






01 L.R 



01N02 



COUNT 



RECNBR 



42 
64 
64 

21 

44 
65 
&6 

94 

128 



'SEQUENCE START I NO AT* 
'000005 AND INCREASING' 
'IN INCREMENTS OP 5.' 

'SAMPLE PR OOP AM 2 WILL* 
'PRINT FROM THE INDEXED 
'FILE TO SHOW THAT IT? 
'WAS PROPERLY LOADED." 



'RECORD NUMBER 



SAMPL t 
SAMPL i 
BAMPLI 
SAMPL 1 
SAMPIJ 
SAMPL ,1 
SAMPL 1 
BAMPI.J 
SAMPL 1 
SAMPL 1 
SAMPL.l 
SAMPL 1 



Figure 4-8 (Part 1 of 2). Source Listing of Sample Program SAMPL1 (Model 6) 
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I NH I CAT OR S USED 
LR 01 02 



RG 314 UNREFERENCED FIELD NAME 
STMT* NAME- DEC 
0005 NO HAT A 



FIELD NAMES USED 

STMTtt NAME DEC 
0005 NOB AT A 
000 A COUNT 
0007 RECNBR 



LGTH 


disp 


001 


0100 


LGTH 


DISP 


00.1 


0.100 


006 


0.106 


003 


0.109 



ERROR SEVERITY TEXT 

RG 314 U FIELD* TABLE OR ARRAY NAME DEFINED BUT NEVER USE 



START 
A DDR 

ocoo 

■I t ■■?■£> 

J, J. f J.' 

1 1 1 4 
1209 
1243 
HOC 
1269 
1274 
12A7 
12A2 
1320 
12EF 
1296 

.L ■*■ C.'f .2 

;i.3C2 

J. "V l.t w' 

147B 
14F6 
1512 
152E 
1543 
15SC 

1A0C 

164F 

1.664 
•i £. or 

,L \.M...<\.s 

16B0 
1B9B 
16E3 
1879 
17BD 
1SBF 
16D7 
1887 
1935 



NAME IF 
OVERLAY 



CODE 

LENGTH 

050C 

OOBE 

0067 

00 3 A 

0026 

0000 

GOOD 

0022 

00 4 B 

0005 

0043 

0031 

OOOC 

005F 

0093 

i'"t i'"i •") £ 

v \j v.. O 

007B 
00 1C 
00 1C 
0015 
00 19 
00 2 F 
00B1 
0043 
0015 
00 OB 
0024 
001 D 
0027 
0024 
00 A A 
OOOE 
OOEC 
0076 
OOOC 
0014 
0072 



NAME 

RGROOT 
ROM A IN 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
ROM A IN 
RGMAIN 
RGMAIN 
RGSUBS 
£*PGKI 
RGSUBS 
RGSUBS 
$51" GUT 
«SRBI 
$$SRUA 
$*SRBR 
£$SRDF 

-.' i' »..« i K I \ j 

^iSRPD 
$SSR(.":R 
£*SRBP 
S$SRMO 
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Figure 4-8 (Part 2 of 2). Source Listing of Sample Program SAMPL1 (Model 6) 



Licensed Material-Property of IBM 





tt 


_ 






1 




LU 








•~j 


It 


O 


A* 






3 




u 


LU 


)-( 


— 


u 




n. 


! 


<K 








It 


■w 


ro 


*F 


<E 


© 


-J 


ii 


<t 


lu 




V 




•w 




"R 




1 




c 


S-! 


■R 




■w 


V 


1-1 


2£ 


o 




a 




■JH 


tfl 


V 


<i 


•6 


CJ 

V 


>- 


<1 


CD 


i 


ss 


p 


CO 




s 








0] 


I 


LU 






<£ 








e 




(■ 


+ 


4-1 


* 


m3 






1 


H 


>-i 


'-• 








Ti 


Li. 


a; 


! 


, 


~ 




O 


iS 




■^j- 


+ 




— 






T_» 




<E 




iXi 




v 




! 


M 




Ul 


-3 


1 


+ 
! 

+ 






* 


* 


* 


* 


* 


* 



* 


* 


* 


* 


* 


* 


* 


* 


X 


X 


<r 


X 


& 


«H 


iC 


0) 


■r 


■R 


01 






tt 


*£ 




"H 


X 


<L 


* 


CD 


>-l 


CN 


u 


"R 


"R 


~i 


«3 




« 




1 


X 


X 


<Z 




<? 


tt 


-5 


11 


"H 


X 


<? 


* 


sv 


LO 


00 


V-t 


Ti 


■R 


*1 


fi 


a 


-3 


AC 


•H, 


Ti 


X 


~i 


■rf 


« 


ID 


Oi 


»■ 


X 


■R 


x 


CN 


:*: 




iiT 


ix. 


R 


R 


'fr 


I-»! 


•a 




Ll 


•m5 


■R 


■R 


G 


X 


CM 


V 


^ 


OJ 


■R 


R 


~ 


o 


*-* 


<E 


^ 




■R 


X 


■z. 


v> 


A 


lCi 


-1 




■R 


■R 


~i 


— 


CN 




<E 


03 


■R 


H 


<4 




+ 


« 


■v 




"R 


■R 


in 


* 


Q 


i: 


CO 


1 


■R 


■R 


o 


+ 


■. 


N 


~i 


*5 


Ti 


■R 


a 


*c 


M 


~3 


*z 




■R 


H 


<z 


CN 


<L 


!■ 






"R 


Ti. 


« 


CJ 


H 


■n 


u 


•d 


O 


■R 


Ti 


•C 


12 


<x 


I 


r* 


v 


■R 


■R 


00 


ffi 


+ 


CO 


iV 


■o 


■R 


■R 


lb. 


CN 


u 


£J 


^ 


— 


■R 


X 


<I 


+ 






■^ 


o 


■R 


•R 


CN 


<X 


X 


>• 


<E 


V 


■R 


■R 




h 


CD 


M 


=» 


^ 


■R 


■R 


* 


v 


CN 


•R 


\> 


<L 


"R 


■R 


t. 


•^. 




4> 


:■£ 




•R 


■R 


UJ 


<L 




CJ 


<r 




■R 


X 


CQ 


M 


■■ 


r 


n 


1 


■R 


•R 


in 


O 




^^ 


<i 




■R 


X 




a 


— 


* 


•v 


* 


* 


* 


# 


* 


* 


* 


* 



Q 


o 


o 


o 


o 


o o 


CJ 


CN 




© 


© 


© 


© 


© 


© 


© 


© 


© 





o 


© 




CJ 


Lu 


LL 


t-i 


Lu 


q- 


li 


CN 


IN 


c 


^ 


o 


c 


© 


© © 


© 


© 




OG 


■^ , 


*4 


© 


a 


© 


© 


* 


© 


© 


© 


© 




© 


LU 


Ll 


© 


Ll 


o 


»-i 


03 


c 


o 


o 


c 


u 


© o 


LU 


© 




UJ 


SD 


© 


© 


© 


© 


o 


© 


o 


© 


© 


© 




© 


Lu 




CN 


O 


o 


d * 


© 


© 


c 




o 


o 


o 


© c 


CN 


o 




© 


CJ 


© 


© 


03 


© 


© 


<r 


o 


o 


© 


© 


UJ 


1-1 


Lu 


Lu 


LU 


CJ 


© 


z N 


■tH 


CJ 


o 


c 


o 


o 


o 


© © 


CN 


u 






© 


© 


© 


© 


© 


© 


© 


© 


© 


© 


© 


•J 


o 


Lu 


LL 


*H 


a 


iN 


< Ch 

z js 


CN 


n 


o 

o 


o 

CN 


c 

o 


o 

o 




© 


o 


© 


© 




C3 


© 
© 


© 

0* 


o 

Q 


o 


© 
© 


© 
© 


o 


© 


© 


© 

© 


© 

© 


LL 


© 
© 


Lu 
Lu 


Ll 


r-i 


© 


00 

o 


Ll 
o 


u 


3 


© 


© 


o 


« 


c 


c 


o 


© 


© 


© 


5 




© 


© 


u 


© 


CO 


© 


© 


<y 


© 


© 


© 


o 


CO 

5 

u. 

o 


© 


Lu 


LL 


*-i 


i-! 


CJ 


© 


LU 


c 


r-i 


© 


<: 


PO 


© 


© 


© 


© 




« 


u. 





© 


A 


© 


© 


© 


© 


o 


c 


© 


0- 


Lu 


Lu 


T< 


© 


■q- 


© 


<z 


o 


Ti 

o 


o 
c 


c 


© 


o 
o 


© 

© 


© 
© 


© 

© 




10 


03 

© 


© 
© 


© 




© 
© 


© 
© 


© 


© 

© 


c 
© 


© 
c 


© 


© 


Lu 
Lu 


Lu 
Lu 


o 


© 

CJ 


iXt 


— fN 




rs 


a 


in 


< 


c 


c 


o 


c 


© 


© 


© 


© 


© 




© 


© 


© 


© 


o 


o 


© 


<? 


© 


c 


© 


© 


X 


© 


u_ 


Lu 


ro 


On 


© Ll 


S 


CJ 


o 


o 


o 


<I 


o 


o 


© 


—i 


<z 




o 


•* 


© 


© 


"vO 


© 


© 


© 


cc <• 


o 


© 


© 


UJ 

a 
z 


&■ 


Lu 


Lu 


<E 


<!■ 


CN -r-i 


Cf* 


Lu 


a 


o 


c 


o 


© 


o 


© 


© 


rr, 




IN 


* 


OQ 


o 


LU 


© 


© 


■q- 


UJ o 


© 


© 


© 


<c 


Lu 


Lu 


rs 


© 


© ^ 


0* 


Lu 


o 


o 


o 


■Zl 


© 


© 


© 


© 


© 




a 


m 


CK 


Lu 


a 


© 


© 


o 


S8 


o 




© 


© 


u. 


Lu 


f-! 


O 


CN fv, 


CN 


<r 


c 


o 


o 


o 


o 


© 


© 


© 


o 




c 


© 


CJ 


QQ 


o 


© 


© 


^ 


© 


© 


© 


cc 


<T 


Lu 


Lu 


♦-! 


i-\ 


a co 


© 


IN 


o 


o 


o 


CN 


o 


o 


© 


u 


© 




Li. 


M 


5-1 


© 


© 


© 


© 


© 




© 


© 


© 


o 

u. 


CJ 


■A. 


u. 


CO 


C-i 


C-i © 


111 


-0 


c 


o 


o 


o 


o 


© 


o 


© 


© 


— . 


Lu 


<n 


© 


o 


<■ 


© 


© 


^f 


© 


© 


© 


ID 

o 


in 


Lu 


Lu 


o 


Lu 


i-i u 


!-n 


© 


c 


o 


o 


o 


© 


© 


© 


© 


© 


tu 


u. 


o 


ro 


24 


■i-! 


o 


© 


© 


© 


© 


© 


o. 


Lu 


Lu 


-q- 


CO 


~4 O 


n0 


o 


o 
c 


c 
o 


o 

c 


o 

1-1 


© 


© 

© 


© 
© 


•J3 

© 


© 


z 
a 
o 


Lu 


© 

CN 


IS 


in 


© 
© 


© 
© 


© 
© 


© 


° $ 


© 
© 


© 


© 


CJ 


Lu 


Lu 






CO o 

CN CJ 


O 
CN 


On 


© 


© 




5 


CN 


c 


o 


o 


D 


^r 


© 


© 


© 


fs 


in 


in 


o 


© 


© 


© 


© 


■c 


r^. 


© 


© 


© 


o 


Lu 


t>L 


DC -! 


CN 


Ll © 


i-i 


Lu 


o 


o 


o 


o 


ro 


© 


© 


© 


c 


© 


A 


-»v 


Lu 


— © 


© 


© 


© 


c 


© 


© 


© 


© 


u. 


LU 


g^ 


On 


C T-! 


in 


© 


o 


o 
o 


o 


o 

to © 




c 
© 


© 

© 


o 


© 


CO 


s? 


So 


Lu 

Lu 


5° 

to 

< © 


© 

© 


o 
© 


■a- 
© 


© 
© 


© 
© 


© 
© 


© 
o 


© 

© 


Lu 

Lu 


Lu 

Lu 


in 


© o 

C-i CN 




© 


tin 

LU © 


O 


o 


o 


o 


N 


© 


© 


M 


*2 <■ 


Ik 


© 


CJ 


Lu 


© 


© 


*r 


LU 


© 


© 


© 


© 


Lu 


Lu 


iH 


cd a 


iH 


CO 


c 


o 


o 


Z LL 


1-t 


© 


© 


© 


o a 


& 


rv 


Is 


CN 


© 


ffi © 


© 


© 


© 


LU 


© 


o 


© 


© 


Lu 


Lu 


Lu 


M © 


iH 


CO 


o 

o 


o 
o 


o 
o 


< a. 

8? 


»-l 


© 
© 


© 

© 


© 
© 


2 ? 


T-f 


CN 


— IN 


ts 


© 
© 


© 
o 


o 


© 


© 
© 


© 
© 


© 

© 


© 
© 


Lu 
Lu 


Lu 
Lu 


© 

O 


Ll © 
U CN 


© 

a 


lli 




© 


LU 


o 


o 


o 


CO 


o 


© 


© 


Is 




© 


u. Lu 


LU 


£E © 


« ° 


© 


© 


^r 


■H 


© 


o 


© 


© 


Lu 


Lu 


U -ri 


© 


© © 


o 


LU 


c 


o 


o 


o 


o 


© 


© 




M 


t- 03 


■M 


< * 

E© 


ffl o 


© 


© 


o 


© 


© 


© 


© 


© 


Lu 


Lu 


8 © 


CJ 


<T IN 


CO 


*-l 


o 


c 
o 


o 
o 




© 
© 


© 
© 


© 

CN 




© 

© 


Q<t 


© 

CN 


2 uj 


© 


© 


o 


© 
© 


© 
© 


© 


© 
© 


© 
© 


« Lu 

St 


Lu 
Lu 


Ch 
LU 






i-i 


o 


© 


© 


© 


© 


o 


o 


o 


o 


Ch 


© 


© 




o 




© 


© 


© 


c ^ 


© 


© 


© 


■q- 


CO 


© 


© 


© 


© 


Lu 


£ CN 


© 


* m; 


i-i 


ri 


o 


o 


o 


o 


03 


© 


© 


o 




CJ 


o 


T-f 


P) o 


© 


© 


© 


© 


© 


© 


© 


© 


© 


O Lu 


Lu 


© 


On •rt 


© 


© 


o 


o 


o 


o 


1-t 


© 


© 


s © 


© 




© 


© 


© 


u. © 


© 


© 


© 


<* 


o 


© 


© 


© 


© 


Lu 


O* 


© ^ 


■M 


U 


o 




o 


a 


iN 


© 


© 


u 




■c 


cs 


© 


a lu 


© 


o 


© 


© 


o 


© 




© 


© 


X u. 


Lu 


Ol 


-H <C 


© 


© 


c 

o 


o 

o 


o 
o 


a 
o 


o 


© 


© 

© 


rt © 


© 

© 




0Q 

© 




© 


© 
© 


© 

© 


© 


© 


© 
© 


© 
© 


© 

© 


© 
o 


© 
© 


9 u - 

S Lu 


Ll 
Lu 


Lu 


cq rs 

IN ^ 


CJ 


© 


K 


r-i 


o 
c 


o 
o 


o 


o 
o 


o 


© 

© 


c 
© 


© 

© 




© 


CN 

© 


u 
o 


© 


© 


© 


© 


© 


© 

© 


© 

© 


© 
© 


© 

© 


© 
o 


Ll 


-J u 


© 

© 


Lu ^i 


CJ 

© 


U 


© 


Ll 


Lu 


ON 


c 


o 


o 


c 


o 


o 


© 


8 o 


© 




G 


rn 


CO 


c 


M 


© 


© 


*r 


© 


© 


© 


© 


o 


[V 


Ll U. 


iH 


CN © 


CN 


UJ 


o 


o 


o 


c 


o 


© 


© 


5 CN 


© 




<r 


hi 


f> 


u 


© 


© 


o 


© 


© 


© 


Q 


© 


© 


iZ 


Lu U- 


CO 


CN LU 


CO 


IS 


o 

o 


o 
c 


o 
o 




© 


© 

o 


© 
© 


- 9 


© 
© 




© 


© 
© 


CJ 

Lu 


in 

1> 




UJ © 


© 
© 


© 


© 


© 
© 


© 


© 

© 


© 
© 


o 

*0 


Ll Ll 




00 o 




On 


5 


in 


© 


o 


c 


o 


o 


o 


© 


Lu 


© 




© 


-0 


li. 


L3 


© 


it c 


o 


<t 


Lu 


© 


© 


© 


o 


u. 


Lu Lu 


© 


Lu © 


a 


<z 


o 


o 


o 


© 


o 


© 


© 


c 


o 




© 


© 


Lu 


>0 


«■ 


ffi ~ 


© 


© 


LU 


© 


o 


© 


© 


Lu 


LU Lu 


■*-( 


LU © 


© 


■M 


C 1 


a 


o 


© 


o 


© 


© 




o 




© 


© 


Lu 


© 


a 


© 


^* 


© 


© 


© 


© 


o 


o 


Lu Ll 


© 


© © 


<3- 


H 


o 


a 


o 


o 


© 


© 


2§ 


© 


Q 




© 


Lu 


© 


© 


T4 


5 © 


© 


© 


© 


o 


«f 


c 


© 


© 


Lu U. 


CN 


■M CO 


<c 


iH 


c 


o 


o 


o 


© 


© 


L. 


© 




© 


© 


C3 


© 


LH 


© 


^r 


© 


© 


© 


© 


© 


IV 


li. Lu 


Lu 


fl 1 © 


rs 


© 


- c 


o 


o 


o 


o 


© 


© 


© 




£} 


o 


© 


■£ 


© 


ee © 


© 


© 


© 


© 




© 


© 


A 


U. U> 


O 


w N 


«? 


LU 


S3 
< 5 


o 
o 


o 

o 


o 
o 


© 

o 


o 
Ul © 


Ul. 

o 


>0 

© 


oc 


Pi 


G3 
Lu! 


o 
o 


Lu 
Lu 


© 
© 


& o 


© 
© 


© 




© 

© 


© 

c 


c 

© 


© 

© 


© 


Lu Lu 
Lu Lu- 


© 
C-i 


A CD 

w CN 


u 

Ll 


r« 


© 


<£ 


o 


o 


o 


c 


u © 


£ ° 


Lu 


00 


© 


© 


© 


© 


© 


© 


© 


si 


o 


© 


c 


© 


© 


A 


ll Ll 


iH 


© LL 


Ll 


© 


o 


o 


o 


o 


I§ 


o 


© 




<r 


© 


■I-l 


© 


CN 


© 


© 


© 


© 


© 


© 


© 


f-» 


Lu Lu 


a 


CN O 


ffi 


r-j 




o 


o 


© 


o 


Lu 


© 


^ 


© 


© 


© 


© 


<5- 


cq 


© 


LL * 
Li. 

D © 


© 


© 


© 


© 


© 


© 


Lu U. 


m 


-h © 


rs 


■i-i 


o m 


o 


o 


o 


o 


> © 


© 


© 


K 


A 


© 


© 


o 


© 


© 


© 


— GD 


o 


© 


© 


© 


© 


Lu U. 


\n 


~* O 


f^ 


c 


o 


o 


Cl 


o 


5 * 

i§ 


5 © 


LL 


© 


m 
a 
o 


© 


© 


LU 


u 


© 


02 


o 


GO T 


^g 


© 


© 


© 


© 


«r 


Lu U. 


© 


© 00 


u 


Lu 


> ^ 


o 


o 


© 


© 


5 ° 


o 


CN 


© 


© 


UJ 


o 


<r 


© 




UJ © 


© 


© 


© 


© 


© 


Lu U 


a 


CJ <c 


Ll 


r-i 




o 

Q 


o 


© 
o 


c 


Q O 

So 


Lu 

© 


© 


© 


>0 

© 


© 

© 


o 
© 


CO 

T-i 


OS 

© 


© 
© 


_J ^ 

a ° 




© 
© 


© 
© 


© 
© 


© 
© 


© 
© 


LL LL 

Ll LL 


© 

in 


© © 




r-i 


© 


•H 


is 


o 
o 


o 


o 
c 


o 


© 

CN 


Li. 

© 


© 
© 




Tt 


od 


111 


© 


© 

© 


CO 


© 


N © 
m o 


© 
c 


© 
© 


© 
© 


© 

© 


CN 

© 


Ll Ll 
Lu Lu 


© 


nQ Ll 


CN 


o 




-©■ 


CJ 


o 


o 


o 


o 


© 


-^f 


© 




© 


5 


© 


© 


© 


CD 


© 


9 ^r 


© 




© 


© 


© 


Lu Lu 


© 


ih m 


CJ 


© 



© 


© 


© 


© 


© 


© 


© 


O 


© 


© 


© 


© 


© 


© 


c 


O 


© 


c 


© 


© 


© 


© 


O 


© 


o 


© 


o 


© 


© 


O 


© 


C\ 


<r 


CO 


<I 


u 


LU 


© 


EN 


<t 


nO 


CO 


§ 


a 


lu 


© 


03 


LU 


© 


CN 


^f 


LU 


o 


CN 


© 


n 


^r 


NO 


CO 


<r 


/ ^ 


r * 


CJ 


CJ 


u 


CJ 


CJ 


p 


•Zi 


o 


UJ 


£3 


i=i 


Cj 


LU 


LU 


U 


Lu 


Lu 


Ll 


Lu 


o 


© 


■H 


T-! 


■i-i 


iH 


tH 


■■-I 


^ 


O 


o 


o 


o 


© 


C 


o 


o 


© 


^\ 


© 


c 


© 


© 


© 


C 


© 




£ 


© 


© 


■"-• 


i-i 


■H 


T-! 


■rt 


*4 


■^ 


t-i 



Figure 4-9 (Part 1 of 4). Storage Dump of Sample Program SAMPL1 (Model 6) 



Object Program 4-93 
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Figure 4-9 (Pait 3 of 4). Storage Dump of Sample Program SAMPL1 (Model 6) 



Licensed Material-Property of IBM 



Object Program 4-95 



* 


g 


* 


* 


* 


z 


*- 


W 


CJ 


'f' 


V 


r 


p 


<E 


CD 


II 




P 


in 


■v 


C3 


v 




CD 


;— i 


T. 


<t 


CD 


<L 


•v 


£ 


P 




C-i 


C 


V 




Li 


os 


■© 


■* 


P 


P 


V 




ll 




LO 


CJ 


v 


<I 


(D 


■ 


<z 




■v 




a 


v 


■S 


LLl 


4* 




UJ 




V 


1 


a 


« 


\y 


u. 


a 




CD 


■Cl 


a 




LU 





P 


cd 


a. 


p 


P 


"^ 




a 


in 


«5 


— 


z> 


CD 


K 


CN 


P 


a 




<s 






_i 


00 


LfJ 


~3 


a 


:*S 


a 


a 


O 




v 


2: 






■<r 


^ 


— i 


« 




\.r 


C3 


V 


p 


■tt 


p 


% 


3 


<r 


^ 


p 


•z 


C3 


■= 


«s 


o 


v 




rs 


CN 


CD 


»■ 


_l 


LU 


CJ 


cn 


Li. 


■v 




<r 


r 


m 


-<5 


w 


CO 


Lfc 


_j 


a 


at 


Id 


CD 


V 




* 


p 




* 


# 


* 


* 


* 



* 


* 


* 


* 


# 


* 


# 


* 


# 


* 


^ 


^ 


* 


# 


# 


* 


* 


* 


£ 


* 


# 


* 


* 


CD 


<r 




■w 


tr. 


P 






CQ 


^ 


UJ 


w 


UJ 


O 


Z 






«r 


-5 


Z 


t-i 




AS 




*-j 


e 


4- 


<: 


W 


>. 




CJ 


-— 


a 


CD 


Lu 




z 




— 


f 


CD 


CD 


K 




'Si 


1 


en 




X 


« 


3 


UJ 


hJ 


^\ 


tl 


w 


a 


3 




v 




CD 


■« 


CM 




T-! 




■!T. 






« 


t 


P 


as 


■*- 


^ 


M 


-^ 


ffi 


M 


Ui 




P 




CD 


fS 


-"N 


CD 


Ll 




a 


fcl 


h 






-^ 


<x 


CD 


'J> 


<T 


C 


i-; 


CD 


_l 




■ 




* 


<r 


P 


* 






a: 


I- 


-*i 


5 




P 


^ 




li 


1 


■*- 


K 


CD 


i— i 




■ 




CJ 




ei 


Ll 


r 




H 


+- 


4- 




CD 


*f 


as 




*- 


i-f 


lE 


r-- 


s 


'r' 




M 




* 


:*. 


a 


U, 


LsJ 




P 


CD 


Ll 


CJ 




— 


<E 






^ 


V 


Ci 


a 




*»y 




« 


_l 


CD 


v 


1- 


in 


P 




■c 


CD 


X 


•J> 


■C 


"K 


+ 


a. 


<r 


!-f 


UJ 


— . 




P 


li. 


P 


* 


OJ 


hi 


r^ 


o 


OS 


(P 


■(- 


*> 




I 


Dj 


.v; 


LIS 


<■ 


XN 


UJ 


O 


CD 




a 


I> 


M 


I 


y\ 


u. 


>- 


<■ 


IP 


•*- 


LU 


3 


CD 


<T 


i£ 


- ; 


4- 


■ft 


M 


CD 


irt 


Q 




:c 


'-<■ 


CD 


*r 


P 


P 


c^ 


o 


^ 


E 


«3 


■♦- 




Li. 


<I 


J >0 




U 


■^ 


t— i 


a 


P 




p 


P 


Si 


ii 


© 


P 




c 


c 




cn 


I 


P 


v> 


C- 


« 


J ^ 


0^ 


<c 


i_j 


p 


—3 




o 


P 


k. 


& 




P 


uS 


o 


SJ 





U. 


<t 




CD 


M 


O 


u 


cn 


* 


a 


CD 


s^ 




■^c 


P 


P 


& 




v 


M 


o 


* 


v 


! 




<3J 




<r 


1 


s>- 






CD 


S 


UJ 




x: 


,— . 


t 




CD 


<r 


P 


Ch. 




«3 


00 




CJ 


j. 


U1 


tft 


_l 


^ 




Q 


-»^ 


Li 




«2 


P 


<E 


N 




A 




O 




CN 


_ 


P 


P 


i 


O 


C 


W 




G 


O 


t-t 


a 




P 


P 


a 


CD 


i; 


ul 


( 


Cs 




I 


*- 


■■X 


■■ 


:g! 


*- 


>3 


ffi 






"s 


Zl 


CD 




X 


CD 


en 


W 


Ul 


M 


_J 


o 




li. 


Ll 




CJ 




$ 


«: 


-0 


CD 


3 


<£ 


ii 


(1 


!! 


ii 


II 


Ct! 


u 


rg 




<t 


0- 




O 






CD 




s, 


ffi 


~i 




B. 




P 






— i 


P 


P 


CD 


LO 


* 


LJ 


Ch 


n 


\-~ 


+ 


i-rv 


*F 


««? 


A 


C^ 


ift 


_: 


CJ 


i^-j 


Q 


^ 




LiJ 


X 


* 


N 


X 


CN 


<E 


O 


* 


<t 


CD 




dt 




^i 


«! 


■a 


<n 


H 


^3 


UJ 


_J 




P 


P 


CD 


M 


c~ 


P 




02 




Cfl 


CO 


K 


^ 


p 


c-i 


v< 


•^G 


LO 


■u 


in 


CD 


L-l 


! 


u; 


CD 


P 


* 


<E 


«? 




O 




Q. 




+- 


X 


<s 


— 


V 


i; 


^ 


6 


■ 


CD 


— 


P 





P 


Cfi 


CD 


P 


^ 


! 


V 






* 


CD 


«- 


oc 




-•H 


jft 


V 


© 


<E 


CJ 


M 


P 


z 


P 


■If 




cn 


o 




c 




<L" 


v 






<v/ 


o 






<E 


CD 


Ifi 


ffl 


p 


CJ 


•J 


Z 


P 


»■ 


rv 


i* 


M 


c 




/-\ 


<4- 


■f 






a 


— 


■© 


H^ 


;c 


+ 


3 


CD 


• 


CD 


o 


*^ 


« 


<jl 


■C-i 


M 


o 




,. 


X 


+- 


CD 


>2> 


*- 


H 


* 




c-j 




G 


p 


LU 


P 


LU 


O 


^ 




CD 


H 


c 




3 


T 


cc 






M 


«? 


<n 




»i 


ffl 


ffi 


p 


UJ 


P 


P 


* 


N 


:k 


CN 


+ 


c^ 




CJ 


<j: 




31 




(3) 


iS 


CN 


<2Q 


■s. 


Cu 


P 


p 


u 


P 


Ul 


o 


P 


^ 


-^ 


P 


liS 




5*S 




— 




CD 


^2 


>a 


_j 


i» 


I> 


,v 


P 


p 


LU 


CD 


P 






<c 


<r 




£N 




'% 




l-l 


CD 




J 


-w 


<Tr 




V 


5 


M 


p 


CD 


P 


Z 


«*s 


CD 


CN 


© 


'-^ 


Ll 




* 


» 


* 


* 


* 


* 


# 


* 


# 


* 


* 


* 




# 


* 


* 


* 


* 


* 


* 


* 


# 


* 



Wi 


<£ 


IT, 


M 


p 


o 


T-! 


r-« 


^ 


O 


o 




CJ 


Ll 


CN 


T-l 


IS 


c 


02 


!j1 


00 


o 


o 


o 


<z 


O 


-V 


in 


u 


o 


ro 


o 


O 


rs 


o 


c 


03 


a 


o 


r^ 


o 


c 


i-i 


o 


o 


o 


o 


o 


T 


iH 


P^ 


iH 


p 


o 


w 


o 


a 


CO 


o 


o 


t 


CN 


o 


C') 


o 


o 


*-< 


a 


o 


Li_ 


Ll 


o 


U 


uj o 


Ul 


O 


O 


o 


S3 


z o 


O 


o 


ro 


c 


UJ 


J ^ 


Cvl 


u 


o 


o 


L>^ 


zo 


o 


o 


o 


o 


rN 


<o 


'Si 


M 


p 


o 


»i 


So 


fS 


O 


o 


o 


»-< 


Z N 


p 


iH 


o 


c 


CJ 


ft o 


00 


o 


<r 


o 


p 


t 


p 


CJ 


o 


o 

til 


§ 


in 


i 1 ^ 

o 


o 
o 


o 


r^ 


o 


S3 


o 


o 


u 


i-i 


rs 


0% 


CJ 


o 


o 


r* 


ca 


T-l 


o 


o 


r>x 


[S 


o 


rs 


1-) 


o 


p 


CD 


C 1 


GO 


© 


o 


<i 


O 


in 


CJ 


CN 


o 


iH 


o 


o 


ro 


CJ 


o 


IS 


IV 


CN 


<" 


T"t 


o 


CD 


P 


o 


o 


1-1 


o 


O 


>0 


;n 


o 


Ll 


o 


CJ 


i-! 


ts 


£S 


CD 


o 


m 


iV 


o 


C-i 


-J- 


c 


CM 


03 


o 


Li_ 


O 


c 


03 


O 


—i 


O 


O 


o 


tH 


u 


c 


o 


O 


o 


n 


CD 


Ul 


o 


!S 


o 


Ul 


rx 


r% 


1-! 


03 


c 


n 


CD 


M 


Ch 


O 


.- o 


^i 


r-t 


CJ 


IS 


CJ 


_l o 


u 


Lr") 


o 


O 


<fr 


£: O 


Gj 


!rt 


V 


o 


P 


5° 


CN 


f*5 


<r 


o 


U 


tH 


r-f 


N 


CJ 


O 


co 


C3 


CJ 


C*-J 


p 


f>l 


t o 


■H 


Ci3 


CJ 


is 


a 


O c 
Q 

z o 


U, 


<r 


1-1 


P 


CN 


ro 




o 


O 
O 


CJ 


uj o 


<■ 


s 


»-i 


i-l 


r% 


0- 


O 


rv 


u 


O 


rv 


IN 


IS 


Y-< 


C3 


^? 


M 


Ll 


00 


,-1 


M 


K! 


Ll 


n 


^ 


rv 


Li. 


i-t 


u 


O 


Ll 


00 


r^ 


r ^ 


o 


T-! 


Ll 


o 


i-i 


a» 


o 


o 


m 


CJ 


L> 


o 


u 


C2 


£> 


CS 


M 


in 


■vO 


P 


•j-i 


o 


r^ 


CD 


CJ 


m 


!S 


p 


iH 


i-5 


p 


o 


C! 


o 


u 


P 


CJ 


rj 


O 


CO 


CO 


CN 


p 


o 


O 


o 



p p 

<C T-i 

i-i o 

CD U 

O CN 

r<: o 



p 



<* o 

CO T-! 

o o 



O ll 
O o 

CN Oi 



Tvl 



m <T 

CN P 

LL *t 

a p 

t> P 

rv o 



Ll <T 

o a 

O n 

LU CO 

O o 

P M 

<E Ll 

^ Ll 

C LL 

O Ll 



rn c-i 

C LU 

CJ O 

O O 

c-T O 



--; ^0 i-i p 



P O 



P iH 



^t o 



[S C-J 
00 o 



O -j 



c o 



r>t -i 



O iU 

a p 

<t in 

o -o 

* a 



Oi 



O o 

o o 

Ll <" 

o o 

Ll «- 

O C 

Ls_ <- 



Figure 4-9 (Part 4 of 4). Storage Dump of Sample Program SAMPL1 (Model 6) 
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Figure 4-10 (Pait 1 of 2). Source Listing of Sample Program SAMPL2 (Model 6) 
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Figure 4-11 (Part 4 of 4). Storage Dump of Sample Program SAMPL2 (Model 6) 
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0101 H 



008 



SAMPLl 



0001 
0002 
0003 



0102 F ************************************** ********** 

0103 F* 
PROGRAM - 



THIS 



1. LOADS 100 RECORDS TO AN INDEXED FILE, 



2. 



010* F* 

0105 F* 

0106 F* 

0107 F* 

0108 F* 

0109 F* 
01091F* 
01092f* 
01093F* 
0109*F* 

0110 F* 

0111 F* 

0112 F* 

0113 F* 

0114 F* 

0115 F* 

0116 F* 

0117 F* 

0118 F* 

0119 F* 

0120 F ********* *************************************** 
012L FtSOURCE IP F 96 96 DISK 

0122 FDISKOUT F 256 128 06AI L DISK 

0123 FPRINTER F 96 96 PRINTER 



READS ONE RECORD FROM FILE tSOURCE FOR 
INPUT. THE FILE $SOURCE IS BUILT WHEN 
SAMPLE PROGRAM SAMPL2 IS COMPILED BY 
GIVING A RETA1N-T PARAMETER TO THE 
FILE tSDURCE. 

CREATES THE OUTPUT DATA USING A 

LOOP IN THE CALCULATION SPECIFICATIONS. 



*. 



USES KEYS FROM 000005 
IN INCREMENTS OF 5. 



THROUGH 000500 



SHOULD BE FOLLOWED 
TO VERIFY THAT THE 
LOADED. 



SAMPLE PROGRAM 2 
LE WAS PROPERLY 



01 



SAMPLl 
SAMPLl 
SAMPL1 
SAMPLl 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMP LI 
SAMPLl 
SAMPL1 



000* 

0005 



0201 ItSOURCE NS 

0202 I 



01 



1 NODATA 



SAMPLl 
SAMPLl 



0006 
0OO7 
0008 
0009 
0010 
0011 
0012 
0013 
001* 
0015 



0301 

0302 

0303 

030* 

0305 

0306 

0307 

0308 

03081C 

0309 CLR 



01 
01 

01 

01 

01 

01NO2 

01N02 



REPEAT 
COUNT 
RECNBR 
COUNT 



RECNBR 



Z-ADDO 

Z-ADDO 

TAG 

ADD 5 

AOD 1 

CQMP 505 

EXCPT 

GOTO REPEAT 

SETON 

SUB 1 



COUNT 60 
RECNBR 30 

COUNT 

RECNBR 



RECNBR 



02 



LR 



SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 



0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
002* 
0025 
0026 
0027 
002 8 
0029 
0030 
0031 
0032 
0033 
003* 
0035 



0*01 OPRINTER T 
0*02 



20* 



0*03 
0*0* 
0*05 
0*06 
0*08 
0*09 
0*10 
0*11 
0*12 
0*13 
0*1* 
0*15 
0*16 
0*17 



LR 



LR 



RECNBRZ 



01 LR 



0501 ODISKOUT E 

0502 

0503 
050* 



01N02 



COUNT 



RECNBR 



20 'SAMPLE PROGRAM 1 HAS* 
27 •LOADED" 

31 

39 •RECORDS' 

61 'INTO AN INDEXED FILE.' 

2i 'KEYS ARE IN ASCENDING' 
42 'SEQUENCE STARTING AT' 
6* '000005 AND INCREASING' 
8* 'IN INCREMENTS OF 5-« 

21 'SAMPLE PROGRAM 2 MILL' 
** -PRINT FROM THE INDEXED' 
65 'FILE TO SHOW THAT IT f 
86 'WAS PROPERLY LOADED. 1 



9* 'RECORD NUMBER' 
12 8 



SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
5AHPL1 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 
SAMPLl 



Figure 4-12 (Part 1 of 2), Source Listing of Sample Program SAMPLl (Models 10 and 12) 
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INDICATORS USED 
LR 01 02 

RG 314 UNREFERENCED FIELD NAMES 

STMT* NAME DEC LGTH DESP 

0005 NODATA 001 0100 

FIELD NAMES USED 

STMT* NAME DEC LGTH D1SP 

0005 NODATA 00 L 0100 

0006 COUNT 006 0106 

0007 RECNBR 003 0109 

ERROR SEVERITY TEXT 

RG 314 W FIELD, TABLE OR ARRAY NAME DEFINED BUT NEVER USED. 











CORE USAGE OF RPGII COOE 


START 


NAME IF 


CODE 


NAME 


TITLE 


ADDR 


OVERLAY 


LENGTH 






LOOO 




0642 


RGROOT 


ROOT 


1694 




0091 


RGMAIN 


INPUT MAINLINE 


1725 




0034 


RGSUBS 


RECORD ID 


1759 




0026 


RGSUBS 


CONTROL FIELDS 


1642 




004A 


RGSUBS 


INPUT CTRL RTN 


168C 




0008 


RGSUBS 


SUflSEG 


177F 




0027 


$$CSIP 


5444 CONSEC INPUT 


17A6 




0079 


SSSRBR 


SYSTEM SUBR 


1B1F 




0026 


iiSRUA 


SYSTEM SUBR 


1845 




001C 


*$SRTC 


SYSTEM SUBR 


1861 




0081 


$SSRMO 


SYSTEM SUBR 


18E2 




0043 


$»SRSB 


SYSTEM SUBR 


1925 




0038 


ttSRDI 


SYSTEM SUBR 


195D 




002F 


&SSR8P 


SYSTEM SUBR 


198C 




OOOB 


RGMAIN 


TOTAL CALCS 


1997 




0022 


RGMAIN 


INPUT FIELDS 


19CA 




004B 


RGMAIN 


DETAIL CALCS 


19C5 




0005 


RGSUBS 


CONSTANTS 


1A45 




0043 


SSPGRI 


RESET RESULTING INDR 


1A15 




0030 


RGSUBS 


EXCEPTION 


19B9 




OOOC 


RGSUBS 


SUBSEG 


IA8B 




005*) 


S$IOUT 


5444 INDEXED OUTPUT 


1B75 




001C 


SSSROF 


SYSTEM SUBR 


LAE1 




0094 


S4SR8I 


SYSTEM SUBR 


1B91 




OOOB 


RGMAIN 


TOTAL OUTPUT 


1RC5 




0024 


RGMAIN 


LR I OVERFLOW PROCESSING 
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0010 
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SUBSEG 


1BE9 




OOFB 


tSLPRT 


5203 PRINT 
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RGMAIN 


OPEN 
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CLOSE 
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0014 
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RGSUBS 


LR PROCESSING 






04001 


SAMPL1 


TOTAL CORE USAGE REQUIRED 


EL6E0P 


3 









TOTAL NUMBER OF LIBRARY SECTORS REQUIRED 



18 



Figure 4-12 (Part 2 of 2). Source Listing of Sample Program SAMPL1 (Models 10 and 1 2) 
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I Figure 4-1 3 (Part 5 of 5). Storage Dump of Sample Program SAMPL1 (Models 10 and 1 2) 
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| Figure 4-14 (Plait 2 of 2). Source Listing of Sample Program SAMPL2 (Models 10 and 1 2) 
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Figure 4-15 (Part 4 of 5). Storage Dump of Sample Program SAMPL2 (Models 10 and 12) 
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Figure 4-17 (Part 2 of 6). Storage Dump of Sample Program SAMPL1 (Model 15) 



Object Program 4-121 
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Figure 4-17 (Part 4 of 6). Storage Dump of Sample Program SAMPL1 (Model 15) 
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Figure 4-17 (Part 5 of 6). Storage Dump of Sample Program SAMPL1 (Model 15) 
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Figure 4-17 (Pait 6 of 6). Storage Dump of Sample Program SAMPLI (Model 15) 
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Figure 4-18 (Pait 1 of 2). Source Listing of Sample Program SAMPL2 (Model 15) 
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0L100 I THE TOTAL C9RE USED BY SAMPL2 IS 3823 DECIMAL. 
3L101 I THE START :3*TR3L ADDRESS OF THIS MOOULE IS 4500. 
3H0* I TOTAL NUHBER OF LIBRARY SECTORS REQUIRED IS 10 
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Figure 4-18 (Part 2 of 2). Source Listing of Sample Program SAMPL2 (Model 15) 
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Figure 4-19 (Part 2 of 5). Storage Dump of Sample Program SAMPL2 (Model 15) 
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Appendix A. Flowcharting Techniques 



CHART NUMBERING 

Flowcharts are identified in this publication in the follow- 
ing manner: 

• A flowchart consisting of a single page is identified by a 
unique pair of letters. 

Example: AA,AB,AC 

• If a flowchart consists of multiple pages, each page is 
identified by the same pair of letters, but each page has 
a unique number. 

Example: First page, CA-01 

Second page, CA-02 
Third page, CA-03, etc. 

• Each part has been assigned two sets of flowchart identi- 
fying letters. Only after the first set has been completely 
used, ie., AA-AZ, will the second set be used. 



SYMBOLS 

The flowchart symbols used in this PLM are: 



Processing 



Comment/Annotation 



u 



Off -page Connector 



Striped Processing 
(Routine Defined 
in this Manual) 




Decision 



C^J 



Entry /Exit 



O 



On-page Connector 



Library 

(Routine Defined in 
Another Manual) 
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Striped Processing Block 

The striped processing block indicates entiy to a module or 
routine which is flowcharted and/or described in this logic 
manual. 



Example: 



LABEL 



CH/PG/BK 



NAME 



CH/PG/BK indicates the flowchart, page, and block identi- 
fication where the module or routine is flowcharted. If it 
is not flowcharted, see the index for the location of the 
description of that routine. 



If control is being passed to a known function/module, 
which is documented in another manual, a striped exit block 
is used. The manual can be found via the Preface as with 
library blocks. 

Example: 



v E * 1T ) 



Connectors 



Off-page connectors are used to reference between different 
page of the same chart ID. Off-page connectors leaving a 
page contain the page number and block number of their 
destination. 



Library Block 

A library block indicates a function or module is document- 
ed in another manual. 



LABEL 



Example: 



NAME 



The NAME of the function /module is listed in the Preface 
of this manual under the name of the manual that contains 
the description of this function/module. 



Entry Block 

The label in the upper lefthand corner, just above the sym- 
bol, is the entry point in the listing for that part of the pro- 
gram. 



Example: 



dmcsop 



f ENTRY j 



Exit Block 

This block indicates that control is leaving this chart. 
Example: 



(RETURN >l 

TO: CALLER J 




Example: 



Off-page connectors contain the page and block number of 
their origin. If the entry point referenced by the off-page 
connector is referenced from more than one origin, all ori- 
gins are given. 

Example: 




02- B2 
03-C4 




On-page connectors contain the location of a block on the 
same page. On-page connectors always contain the loca- 
tion of the destination block. 
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Appendix B: Dump Facility 



A dump facility is available in this compiler as a debugging 
aid and for FE program support. It can be used during 
compilation to dump main storage, disk, and compressions. 
The dump facility can also be used to print text blocks 
and to halt on phase load during compilation. If it is not 
requested, it has no effect on the operation of the compiler. 
The dump facility makes it possible to submit additional 
information with APARs, or to supply additional informa- 
tion when requested to do so by FE Field Support (Tech 
Ops). 

The dump facility is requested and controlled by dump 
control cards. When requested, a routine ($RPZY) is load- 
ed into the high portion of main storage available to the 
compiler (see Compiler Control Region). This routine will 
intercept all calls to load succeeding RPG compiler modules 
and all requests to output text. It will also produce the out- 
put requested on the dump control cards. This routine re- 
quires 1.5K of main storage to execute. 

The dump control cards must precede the RPG source pro- 
gram. They will be read, listed, and compressed by the 
first phase of the compiler ($RPG). Dump control card 
defaults are made at this time and the assembled addresses, 
used to specify lower and upper limits (see dump control 
card format), are converted to the logical main storage 
address. 

The second control routine phase of the RPG compiler 
($RPIC), will load $RPZY into main storage if valid dump 
control cards were found by $RPG. $RPIC passes control 
to $RPZY to allow for initializing the table of dump func- 
tions and the modifying of several address constants in the 
COMMON area. This enables $RPZY to trap phase calls 
and text output calls. 

Note: Because of the point at which $RPZY is loaded, it 
is not possible to use this function to obtain dumps before 
$RPEW is loaded (see Assign and Diagnostic Phases). 

One function may be specified in each dump control card 
and up to ten dump control cards may be submitted for 
each compilation. If more than one function is to be per- 
formed between phases, they will be performed in the 



sequence implied by the order of the cards. The dump con- 
trol cards must precede the header card for the source pro- 
gram. 

Some fields of the dump control card have different mean- 
ings depending on the function to be performed. The dump 
control card format is as follows: 



Dump Control Card Format 



Columns Meaning 



6 


Must contain a 'D' to identify it as a 




dump control card. 


7 


Dump function identification 




character 




C — Main storage dump 




D - Disk dump 




H — Halt on phase load 




1 — Compression dump 




T — Print text blocks 


9-10 


Start phase ID \ Different meanings 


12-13 


End phase ID j depending on dump 


15-18 


Lower limit f function identifica- 


20-23 


Upper limit / tion character in 


25 


Compression/ i column 7. 




me ro J See the specific 




function for detail. 


Column 7 


= C (Function = Main storage dump) 



• Start phase ID— The first dump will be given after 
this phase is done and before the next phase is loaded. 

• End phase ID — The last dump will be given after 
this phase is done. 

• Lower limit - Assembled lower limit in hexadecimal 
(from the phase listing). Default is to the start of the 
partition. 

• Upper limit - Assembled upper limit in hexadecimal 
(from the phase listing). Default is to the end of the 
partition* 
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Column 7 = D (Function = Disk Dump) 

• Start Phase ID — Same as main storage dump. 

• End Phase ID - Same as main storage dump. 

• Lower limit - The relative sector number in decimal 
of the first sector to be dumped. The default is 0001 . 

• Upper limit — The relative sector number in decimal 
of the Last sector to be dumped. The default is 0032. 

• Comp/File ID - Specifies the file to be dumped. *W 
is SWORK and *S' is $SOURCE. The default is 
SSOURCE. 



Note: Only those compressions identified by the 
compression identification character, that fall between 
the limits specified, will be printed. For example, 
assume the source listing contains the following: lines 
0001 through 0003 are file specifications, lines 0004 
and 0005 are input specifications, lines 0006 through 
0014 are calculation specifications, and the remainder 
are output specifications. If the dump control card is 
coded as shown below, only the input compressions 
for lines 0004 and 0005 will be printed. 

Lower limit = 0001 
Upper Limit = 0020 
Comp/File = I 



Column 7 = H (Function - Halt on Phase Load) 

• Start Phase — The program halts when the request 
to load this phase is made. 



Column 7 = 1 (Function = Compression Dump) 

• Start Phase ID — Same as main storage dump. 

• End Phase ID — Same as main storage dump. 

• Lower limit — Compression number in decimal 
(statement number from the source listing), of the 
first compression to be dumped. The default is 0001. 

• Upper limit — Compression number in decimal (state- 
ment number from the source listing), of the last 
compression to be dumped. The default is 9999. 

• Comp/File ID — Compression identification character 
for the compressions wanted. 



Column 7=T (Function = Print Text Blocks) 

• Start Phase ID — Start printing the text blocks gener- 
ated by this phase. 

• End Phase ID - Stop printing the text blocks after 
this phase is complete. 



F — File Description Compressions 

E — Extension Compressions 

L — line Counter Compressions 

T — Telecommunication Compressions 

I — Input Compressions 

C — Calculation Compressions 

O — Output Compressions 

D — Data Management Name Compressions 

P — Phase/Dump Compressions 

S — Scratch Compressions 

A — ALTSEQ Compressions 

B — Compile Time Table Compressions 

X — Extra Compressions 

M - Error Compressions 

The default i& F if none of the above are specified. 
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SNAPSHOT OPTION 

A HOOK is available 6 bytes before the print buffer for 
access to PHASE, by PATCH, for dynamic storage area 
dumps. 

The SNAPSHOT option is available during any phase when 
the following linkage is inserted at the desired area: 



^SNAPSHOT ENTRY POINT 

it 




^LINKAGE FORMAT 




* 


B 


5) BRANCH TO SET ARR TO PARM 


LIST 


* 


DC 


XLl'XX' PARM FOR TYPE OF DUMP 




* 


DC 


XL2'LLLL' LOWER CORE OR COMPRESSION 


UNIT 


* 


DC 


XL2'HHHH' UPPER CORE OR COMPRESSION 


UNIT 


♦RETURN EQU 


# 




*THE 


FIRST PARM BYTE HAS THE FOLLOWING VALUES AND 


MEANINGS 


* 


FF 


DUMP CORE 




* 


81 


DUMP FILE $WORK 




* 


01 


DUMP FILE $S0URCE 




* 


00 


'F' COMPRESSIONS 




* 


02 


•E 1 COMPRESSIONS 




* 


04 


■L 1 COMPRESSIONS 




* 


06 


DATA MANAGEMENT NAME COMPRESSIONS 




* 


08 


•I 1 COMPRESSIONS 




* 


OA 


■C COMPRESSIONS 




* 


OC 


DEBUG COMPRESSIONS 




* 


OE 


SPARE COMPRESSIONS 




* 


10 


'0' COMPRESSIONS 




* 


12 


'T 1 COMPRESSIONS 




* 


14 


COMPILE TIME TABLE COMPRESSIONS 




* 


16 


ALTSEQ COMPRESSIONS 




* 


18 


ERROR COMPRESSIONS 




* 


1A 


SCRATCH COMPRESSIONS 





@ is the address of the print buffer, (found in 
COMEXC) minus 6 bytes. 
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Index 



*PLACE, address of 4-5 



$$PGAA - array index subroutine 4-41 

$$PGAB - file translate subroutine 4-41 

$$PGAC - square root subroutine 4-41 

5$PGBB - BSCA logic for transmit and receive subroutine 4-42 

$$PGBC - BSCA logic for conversational subroutine 4-42 

$$PGBG - BSCA logic for receive subroutine 4-42 

$$PGBI - convert to binary subroutine 4-42 

$$PGBO - convert to decimal subroutine 4-43 

$$PGBP - BSCA logic for transmit subroutine 4-43 

$$PGCB - command key indicator set routine 4-43 

$$PGC1 - unpack subroutine 4-43 

$$PGCO - pack subroutine 4-44 

$$PGDC - DEBUG subroutine 4-44 

$$PGD1 - alternate collating sequence subroutine 4-44 

$$PGDP - display subroutine (Model 15 only) 4-45 

$$PGFI - load object tables subroutine 4-45 

$$PGFO - dump object tables subroutines 4-46 

$$PGIC - divide subroutine 4-46 

$$PGLC - LOKUP subroutine 4-47 

$$PGLG - command key indicator light restorer routine 4-47 

$$PGMA - move array subroutine 4-48 

$$PGMC - multiply subroutine 4-48 

$$PGRI - set resulting indicators subroutine 4-49 

SSPGTC - test zone subroutine 4-49 

$$SYRP - RPG II halt processor 4-49, 4-70, 4-71 

$$SYR1 - RPG II halt library 1 4^9, 4-72 

SRPEA - file description compression phase 2-3 

SRPEB - extension compression phase 2-3 

$RP£C - line counter compression phase 2-3 

$RPEE — telecommunications compression phase 2-3 

$RPEI - input compression phase 2-3 

SRPEK - calculation compression phase 2-3 

$RPEO - output compression phase 2-4 

$RPEW - post compression and initialization phase 2-5 

SRPFA - copy tables into compression phase 2-4 

$RPG - compiler initialization phase 2-3 

$RPGB - process MFCM print specifications phase 2-6 

$RPGF - assign and check indicators phase 2-5 

$RPGG - check calculation specifications 2 phase 2-5 

$RPGH - assign filename and IOCB phase 2-7 

SRPG1 - assign filename and DTF phase 2-7 

SRPGJ - remote terminal/device support 2-8 

$RPGK - check telecommunications specifications 1 phase 2-7 

$RPGL - check telecommunications specifications 2 phase 2-7 

$RPGN - build DTFs phase 2-8 

SRPGR - assign I/O areas MFCU1, MFCU2, READ42, SPECIAL 

MFCM1, MFCM2, READ01, DISKET (Models 6 and 10) 

phase 2-8 
$RPGT - assign I/O areas phase CONSOLE, DISK, PRINTER, 

PRINTR2, PRINT84 BSCA 2-8 
SRPGS - assign shared I/O and other device areas phase 2-8 
$RPGU - build name table phase 2-5 
$RPGV - check table/array phase 2-6 
$RPGW - check name table phase 2-6 
$RPGX - print name table phase 2-6 



$RPGY - build compile-time tables phase 2-7 
$RPGZ - compile-time table/array code phase 2-7 
$RPHA - build symbol table phase 2-6 
$RPHC - check symbol table phase 2-6 
$RPHD - print symbol table phase 2-7 
$RPHQ - assign alternate collating sequence and file 

translate tables phase 2-8 
$RPHS - check input specifications 2 phase 2-8 
$RPHT - assign control and match field hold areas and 

edit code patterns phase 2-9 
SRPHU - assign limits file hold areas phase 2-9 
$RPIC - post compression initialization phase 2-5 
$RPIG - check file description continuation cards phase 2-5 
SRPJA - check input specifications 1 phase 2-6 
$RPJE - check calculations specifications 1 phase 2-5 
$RPJG - check calculations specifications 3 phase 

(Model 6 only) 2-9 
$RPJJ — control field and match field move optimization 

phase 2-9 

$RPJK - check file and table/array phase 2-6 
$RPJL - check calculation specifications 4 phase 2-9 
$RPJM - check output-format specifications 1 phase 2-10 
$RPJN - check output-format specifications 2 phase 2-10 
$RPJO - check output-format specifications 3 phase 2-10 
$RPJP - check input specifications 3 phase 2-9 
$RPJS - header/trailer assign and diagnostic phase 2-9 
SRPJU - check compile-time tables/array phase 2-7 
$RPJW - check file description specifications 1 phase 2-5 
SRPJX - check file description specifications 2 phase 2-5 
$RPJY - check extension and line counter phase 2-10 
$RPJZ - check file description specifications 3 phase 2-5 
$RPKA - error sort and print phase 2-10 
$RPKB - error message list phase 2-10 
SRPLB - output indicator optimization phase 2-13 
$RPLG - DTF parameter assign 1 phase 2-13 
$RPLJ - pre-assemble calculations 3 phase 

(Model 6 only) 2-13 

SRPLN - constant, literal, edit word assign phase 2-13 
$RPLR - constant, literal edit word, DTF parameter assign 

11 phase M3 
$RPLV - output fields move optimization phase 2-13 
$RPLZ - output indicator testing phase 2-14 
$RPMA - output object code block length phase 2-14 
$RPMB - pre-assemble calculations 1 phase 2-13 
$RPMG - pre-assemble calculations 2 phase 2-13 
$RPMH - pre-assemble calculations 4 phase 2-14 
$RPMI - pre-assemble indicator optimization phase 2-14 
$RPMK - build segment list phase 2-14 
$RPMM - output segment list entries build phase 2-14 
$RPMP - build calculation segment list phase 2-15 
$RPMQ - completes calculation segment list phase 2-15 
SRPPA - generate IPCR phase 2-1 1 
SRPPB - generate OPCR phase 2-1 1 
$RPPC - input mainline code phase 2-1 1 
$RPPE - build input record recognition 1 code phase 2.-11 
$RPPF - build input record recognition 2 code phase 2-1 1 
$RPPG - file selection and match field extraction code phase 2-1 1 
SRPPJ - control field extraction code phase 2-12 
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$RPPL - look-ahead field extraction code phase 2-12 
SRPPM - input field extraction code phase 2-12 
$RPPN - chain and lead files codes phase 2-15 
$RPPO - LR and overflow control mainline code phase 2-1 5 
$RPPS - output record code phase 2-15 
$RPPU - output fields 1 code phase 2-1 6 
$RPPV - output fields 2 code phase 2-16 
$RPPW - output fields 3 code phase 2-16 
$RPQA — calculations 1 code phase 2-16 
$RPQB - calculations 2 code phase 2-16 
$RPQD - calculations 3 code phase 2-16 
SRPQE - calculations 4 code phase 2-1 6 
$RPQF - calculations 5 code phase 2-17 
$RPQG - calculations 6 code phase 2-17 
$RPQH - Calculations 1.5 code phase 2-16 
$RPQK - calculations 7 code phase 2-17 
$RPQL - calculations 8 code phase 2-17 
$RPQT - calculations 9 code phase 2-17 
SRPQU - calculations 10 code phase 2-17 
$RPQV - calculations 11 code phase 2-17 
$RPRA - initialization and close code phase 2-1 8 
$RPRC - table load/table dump code phase 2-1 8 
$RPRW - chain and read files move field code phase 2-1 5 
$RPRX - initialize segment list phase (Models 6 and 10) 2-19 
$RPRX - reformat segment list phase (Model 15) 2-21 
$RPRY - library of subroutines code phase (Models 6 
and 10) 2-19 
$RPRY - sort object code phase (Model 15) 2-21 
$RPRZ - generate R-module output phase 2-21 
$RPS A - resolve EXTRN phase 2-1 9 
$RPSB - overlay editor 1 phase 2-19 
$RPSC - calculate start addiess phase 2-19 
$RPSD - print segment list phase 2-19 
$RPSE - sort object code phase 2-1 9 
$RPSF - overlay editor 2 phase 2-19 
$RPSG - overlay fetch and transfer vector code phase 2-20 
$RPSI - final output generation 1 phase 2-20 
$RPSK - final output generation 2 phase 2-20 
$RPSN - sort segment list phase 2-19 
$RPSP - eliminate duplicate segment list entries phase 2-19 
$RPXA - build DTF and I/O area for DISK45 phase 2-8 
$RPXB - build DTF and I/O area for tape phase 2-9 
SSOURCE, use of 3-61 
$WORK, use of 3-61 



abbreviations used in calculations 

ADD object code 4-28 

addresses used 

in calculations 4-26 
array with integer index 
amy with variable index 
entire array 4-27 
table elements 4-27 
with output fields 4-5 
♦PLACE 4-5 
array with numeric index 
array with variable index 
array with no index 4-5 
Editing 4-5 
PAGE 4-5 
Punch 4-5 
table element 4-5 
Update FILES 4-5 



4-26 



4-27 
4-27 



4-5 
4-5 



alignment 4-27 

alphameric fields, blank after 4-5 
alternate collating sequence subroutine ($PGDI) 4-44 
alternate collating sequence, file translate, and compile-time 
table/array compressions 3-51 
alternate collating sequence and translate tables 4-76 
alternate collating sequence table 

compile-time 3-51 

object time 4-76 
array 

array addressing (see array addressing) 

array index subroutine ($$PGAA) 4-41 

entire, use of 4-26 
array addressing 

calculation, use of 

array with integer index 4-27 
array with variable index 4-27 

output fields, use of 

array with numeric index 4-5 
array with variable index 4-5 
array with no index 4-5 
array index subroutine ($$PGAA) 4-41 
array with integer index, calculation addressing 4-27 
array with no index, output fields addressing 4-5 
array with numeric index, output fields addressing 4-5 
array with variable index 

calculation addressing 4-27 

output fields, addressing 4-5 
assemble 1 phases 2-1 1 

build input record recognition 1 code ($RPPE) 2-1 1 

build input record recognition 2 code ($RPPF) 2-1 1 

control field extraction code ($RPPJ) 2-12 

file selection and match field extraction code ($RPPG) 2-1 1 

input field extraction code ($ RPPM) 2-1 2 

input mainline code ($RPPC) 2-1 1 

generate 1PCR ($ RPP A) 2-11 

generate OPCR ($RPPB) 2-1 1 

look-ahead field extraction code ($RPPL) 2-1 2 
assemble II phases 2-15 

build calculation segment list ($RPMP) 2-1 5 

calculations 1 code ($RPQA) 2-16 

calculations 1.5 code ($RPQH) 2-16 

calculations 2 code ($RPQB) 2-16 

calculations 3 code ($RPQD) 2-16 

calculations 4 code ($RPQE) 2-16 

calculations 5 code ($RPQF) 2-1 7 

calculations 6 code ($RPQG) 2-17 

calculations 7 code ($RPQK) 2-17 

calculations 8 code ($RPQL) 2-17 

calculations 9 code ($ RPQT) 2-1 7 

calculations 1 code ($RPQU) 2-1 7 

calculations 1 1 code ($RPQV) 2-1 7 

chain and read files code ($RPPN) 2-15 

chain and read files move field code ($RPRW) 2-15 

initialization and close code ($RPRA) 2-18 

LR and overflow control mainline code ($RPPO) 2-1 5 

output fields 1 code ($RPPU) 2-16 

output fields 2 code ($ RPPV) 2-1 6 

output fields 3 code (SRPPW) 2-16 

output record code ($RPPS) 2-15 

table load/table dump code ($RPRC) 2-18 
assign alternate collating sequence and file translate 

tables phase (SRPHQ) 2-8 
assign and check indicators phase ($RPGF) 2-5 
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assign and diagnostic phases 2-5 

assign alternate collating sequence and file translate 
tables ($RPHQ) 2-8 
assign and check indicators ($RPGF) 2-5 
assign control and match field hold areas and edit 

code patterns ($ RPHT) 2-9 
assign filename and 10CB ($RPGH) 2-7 
assign filename and DTF ($RPG1) 2-7 
assign I/O areas ($ RPGR) 2-8 
assign limits file hold areas ($ RPHU) 2-9 
assign shared I/O and other device areas (RPGS) 2-8 
build compile-time tables ($RPGY) 2-7 
build DTFs(SRPGN) 2-8 

build DTF and I/O area for DISK45 ($RPXA) 2-8 
build DTF and I/O area for tape ($RPXB) 2-9 
build name table ($RPGU) 2-5 
check calculation specification 1 (SRPJE) 2-5 
check calculation specification 2 ($RPGG) 2-5 
check calculation specification 3 (SRPJG) 2-9 
check calculation specification 4 ($RPJM) 2-10 
check compile-time tables/arrays ($RPJU) 2-7 
check file and table/array ($RPJK) 2-6 
check file description continuation cards ($RPIG) 2-5 
check extension and line counter (SRPJY) 2-10 
check file description specifications 1 ($RPJW) 2-5 
check file description specifications 2 (SRPJX) 2-5 
check file description specifications 3 ($RPJZ) 2-5 
check input specifications 1 ($RPJA) 2-6 
check input specifications 2 (SRPHS) 2-8 
check input specifications 3 ($RPJP) 2-9 
check name table ($RPGW) 2-6 
check output-format specification I ($RPJM) 2-10 
check output-format specifications 2 (SRPJN) 2-10 
check output-format specifications 3 ($RPJO) 2-10 
check symbol table (JRPHC) 2-6 
check table/array (SRPGV) 2-6 

check telecommunications specifications 1 ($RPGK) 2-7 
check telecommunications specifications 2 ($RPGL) 2-7 
compile-time table/array code ($RPGZ) 2-7 
control field and match field move optimization (SRPJJ) 2-9 
error message list ($RPKB) 2-10 
error sort and print (SRPKA) 2-10 
header/trailer assign and diagnostics ($RPJS) 2-9 
print name table (SRPGX) 2-6 
print symbol table ($RPHD) 2-7 
post compression and initialization ($RPEW) 2-5 
post compression initialization (SRPIC) 2-5 
remote terminal/device support ($RPGJ) 2-8 

assign control and match field hold areas and edit code 
patterns phase ($RPHT) 2-9 

assign filename and DTF phase ($RPGI) 2-7 

assign filename and IOCB phase ($RPGH) 2-7 

assign I/O areas-CONSOL, DISK, PRINTER, PRINTR2, 
BSCA ($RPGT) 2-8 

assign I/Oareas-MFCUl, MFCU2, READ42, SPECIAL, 
phase ($RPGR) 2-8 

assign limits file hold areas ($RPHU) 2-9 

assign phases (see assign and diagnostic phases) 

assign shared I/O and other device areas phase ($RPGS) 2-8 

begin subroutine 4-28 
BEGSR subroutine 4-28 
BITOF object code 4-28 
BITON object code 4-28 



BSCA logic for conversational subroutine ($$PGBC) 4-42 

BSCA logic for receive subroutine ($$RGBG) 4-42 

BSCA logic for transmit subroutine ($$RPGP) 4-43 

BSCA logic for transmit and receive subroutine (JJPGBB) 4-42 

buffer, input and output 4-77 

build calculation segment list phase ($RPMP) 2-15 

build compile-time tables phase (SRPGY) 2-7 

build DTFs phase ($RPGN) 2-8 

build DTF and I/O area for DISK45 phase ($RPXA) 2-8 

build DTF and I/O area for tape phase ($RPXB) 2-9 

build input record recognition 1 code phase ($RPPE) 2-1 1 

build input record recognition 2 code phase ($RPPF) 2-1 1 

build name table phase ($RPGU) 2-5 

build segment list phase ($RPMK) 2-14 

build symbol table phase ($RPHA) 2*6 

calculation addressing 4-26 

array with integer index 4-27 

array with variable index 4-27 

entrie array 4-27 

table elements 4-27 
calculate start address phase ($RPSC) 
calculation compression 3-32 
calculation compression phase ($RPEK) 
calculations object code 4-26 

ADD 4-28 

address of array with integer index 4-27 

address of array with variable index 4-27 

address of entire arrays 4-27 

address of table elements 4-27 

BEGSR 4-28 



2-19 



2-3 



BITON 


4-28 


BITOF 


4-28 


CHAIN 


4-28 


COMP 


4-28 


DEBUG 


4-29 


DIV 4-29 


DSPLY 


4-30 


ENDSR 


4-30 


EXCPT 


4-30 


EXIT 4-30 


EXSR 


4-30 


FORCE 


4-30 


GOTO 


4-31 


KEY 4-31 


LOKUP 


4-31 


MHHZO 


4-32 


MHLZO 


4-32 


MLHZO 


4-32 


MLLZO 


4-32 


MOVE 


4-32 


MOVEA 


4-33 


MOVEL 


4-33 


MULT 


4-33 



4-27 



MVR 4-34 

obtaining addresses 4-26 

preserving decimal integrity 

READ 4-34 

RLABL 4-34 

see also detail calculations and total calculations 

SET 4-34 

SETLL operation code 4-34 
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calculations object code (continued) 

SETOF 4-35 

SETON 4-35 

specification descriptions 4-28 

SQRT 4-35 

SUB 4-35 

TAG 4-35 

TESTB 4-35 

TEST2 4-36 

use of conditioning indicators 4-26 

use of entire arrays 4-26 

use of RPG II subroutines 4-26 

use of tables 4-26 

useofXRl 4-26 

XFOOT 4-36 

2-ADD 4-36 

Z-SUB 4-36 
calculation segment list phase ($RPMQ) 2-15 
calculation specifications descriptions 4-28 
calculations ] code phase ($RPQA) 2-16 
calculations 1 .5 code phase ($RPQH) 2-16 
calculations 2 code phase ($RPQB) 2-16 
calculations 3 code phase (SRPQD) 2-16 
calculations 4 code phase (SRPQE) 2-16 
calculations 5 code phase (SRPQF) 2-1 7 
calculations 6 code phase (SRPQG) 2-17 
calculations 7 code phase (SRPQK) 2-17 
calculations 8 code phase ($RPQL) 2-17 
calculations 9 code phase ($RPQT) 2-1 7 
calculations 1 code phase ($RPQU) 2-1 7 
calculations 11 code phase (SRPQV) 2-17 
CHAIN object code 4-28 
chain and read 4-6 

chain and read files codes phase ($RPPN) 2-15 
chain and read files move field code phase ($RPRW) 2-15 
chain table 3-54 

check calculation specifications 1 phase (SRPJE) 2-5 
check calculation specifications 2 phase ($RPGG) 2-5 
check calculation specifications 3 phase (Model 6 only) 

(SRPJG) 2-9 
check calculation specifications 4 phase ($RPJL) 2-9 
check compile-time tables/arrays phase ($RPJU) 2-7 
check extension and line counter phase ($RPJY) 2-10 
check file and table/array phase (SRPJK) 2-6 
check file description continuation cards phase (SRP1G) 2-5 
check file description specifications 1 phase (SRPJW) 2-5 
check file description specifications 2 phase (SRPJX) 2-5 
check file description specifications 3 phase ($RPJZ) 2-5 
check input specifications 1 phase($RPJA) 2-6 
check input specifications 2 phase ($RPHS) 2-8 
check input specifications 3 phase ($RPJP) 2-9 
check name table phase (SRPGW) 2-6 
check output-format specifications 1 phase ($RPJM) 2-10 
check output-format specifications 2 phase (JRPJN) 2-10 
check output-format specifications 3 phase (SRPJO) 2-10 
check symbol table phase <$RPHC) 2-6 
check table/array phase ($RPGV) 2-6 

check telecommunications specifications 1 phase ($RPGK) 2-7 
check telecommunications specifications 2 phase ($RPGL) 2-7 
close a compression area routine (DRGCZE) 2-24 
close a compression block routine (DRGCZK) 2-25 
close mainline 4-7 

detailed object program flow 4-25 

intermediate object program flow 4-4 

overall object program flow 4-2 



command key indicator light restorer routine ($$PGLG) 4-47 

command key indicator set routine ($$PGCD) 4-43 

COMMON 3-1 

COMP object code 4-28 

compare object code 4-28 

compile-time data areas 3-1 

com pile-time symbol table 3-54 

compile-time table/array code phase ($RPGZ) 2-7 

compile-time table/array compression 3-54 

compiler control region 3-1 

introduction to 1-3 
compiler initialization phase (SRPG) 2-3 
compiler operation 1-1 
compiler overview 1-2 

completes calculation segment list phase (JRPMQ) 2-15 
completion codes from data management 4-77 
compressions 3-18 

alternate collating sequence 3-54 

calculation 3-34 

compile-time table/array 3-54 

control statement 3-17 

data management entry point and module names 3-54 

extension 3-1 8 

file description 3-17 

file translate 3-54 

input 3-28 

line counter 3-18 

output-format 3-44 

phase load 3-60 

telecommunications 3-50 
compression block table (CZ ATAB) 3-1 7 

compression phases (see input and compression phases) 3-17, 3-18 
compression work area 3-17 
conditioning indicators, use of by calculations 4-26 
constant area 4-73 

constant.literal, edit word assign phase ($RPLN) 2-1 3 
constant, literal, edit work assign EI phase ($RPLR) 2-13 
constants 4-76 
control field and match field move optimization phases 

($RPJJ) 2-9 
control field extraction code control phase ($RPPJ) 2-1 2 
control fields logic and move 4-6 
control fields move (see control fields logic and move) 
control field s save areas 4-76 
control routine save area 3-1 6 
control statement compression 3-17 
convert to binary subroutine ($$PGBI) 4-42 
convert to decimal subroutine ($$PGBO) 4-43 
copy tables into compression phase ($RPFA) 2-4 
crossfoot (see XFOOT) 
CZATAB 3-17 



data areas 

compile-time 

alternate collating sequence, file translate, and 
compile-time table/array compressions 3-54 
chain table 3-54 
COMMON 3-1 

compile-time symbol table 3-54 
compiler control region 3-1 
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data areas (continued) 

compile-time (continued) 

compression block table (CZATAB) 3-17 

compression formats 3-18 

compression work area 3-17 

control routine save area 3-1 6 

data management entry points and module names 
compression 3-54 

error file 3-55 

final segment list 3-57 

file input/output table 3-S6 

filename table 3-57 

general storage table 3-58 

I/O parameters 3-16 

internal symbol table 3-58 

IOB 3-16 

name table 3-59 

object code block 3-59 

parameters to RPG II halt processor 3-16 

phase load compression 3-60 

segment list 3-60 

symbol table 3-60 

telecommunications table 3-60 

text-RLD record 3-61 
object-time 

alternate collating sequence and translate tables 4-76 

constant area 4-73 

constants, edit words, and edit codes 4-76 

control field save areas 4-76 

data management completion codes 4-77 

data management parameters 4-81 

define the files (DTF) 4-75 

define the table (DTT) 4-75 

error recovery procedure (ERP) area 4-77 

indicator table 4-74 

input and output buffers 4-77 

input/output control block (IOCB) 4-78 

match field save areas 4-76 

prime work area 4-73 

reserved object communications area (ROCA) 4-73 

secondary work area 4-75 

trailer table 4-75 
data management 

completion codes from 4-77 
parameters to 4-81, 4-82 
data management entry points and module names 

compression 3-54 
DEBUG object code 4-29 
DEBUG subroutine ($$PGDC) 4-44 
decimal 

convert to decimal subroutine ($$PGBO) 4-43 
pack subroutine ($$PGCO) 4-44 
unpack subroutine ($$PGCI) 4-43 
decimal halt adjusting 4-27 
decimal integrity, methods of preserving 4-27 
decimal point alignment 4-27 
define the file (DTF) 4-75 
define the table (DTT) 4-75 
detail calculations 

intermediate object program flow 4-4 
overall object program flow 4-2 
(see also calculations) 
detailed object program flow 4-1 



detail output 

intermediate object program flow 4-3 

overall object program flow 4-2 

(see also output) 
diagnostic phases (see assign and diagnostic phases) 
disk control routine (PIOCS) 2-24 
disk input and output control phases (see interphase control 

routines) 
display object code 4-30 
display subroutine, Model 15 ($$PGDP) 4-45 
DIV (divide) object code 4-29 
divide subroutine ($ $PG1C) 4-46 
DRGCGl-find item in compression routine 2-25 
DRGCZA-open a compression area routine 2-24 
DRGCZC-write a compression routine 2-24 
DRGCZE-close a compression area routine 2-24 
DRGCZG-open a compression block routine 2-25 
DRGCZH-get next compression routine 2-25 
DRGCZK-close a compression block routine 2-25 
DRGCZM- write an object code block routine 2-25 
DRGCZN-get next source record routine 2-24 
DRGCZP- printer control routine 2-24 
DRGCZZ-call next compiler phase routine 2-24 
DSPLY object code 4-30 
DTF 4-75 

DTF parameter assigning ($RPLG) 2-1 3 
DTT (define the table) 4-75 
dump analysis, sample 4-90 
dump control card format B-l 
dump control compressions (see dump facility) 
dump control phase 2-1 
dump facility B-l 
dump object tables subroutine ($$PGFO) 4-46 



edit codes and edit words 

data area 4-76 

editing 4-5 
editing, edit codes and edit words 4-5 
editor (see overlay editor) 
elements 

table elements 

calculation addressing 4-26 
output fields addressing 4-1 
eliminate duplicate segment list entries phase ($RPSP) 2-19 
end of job (see program close mainline) 
ENDSR (end subroutine) 4-30 
ENDSR object code 4-29 
EOJ routine (see program close mainline) 
ERP (error recovery procedure area) 4-77 
error 

file 3-55 

message list phase (SRPKB) 2-10 

sort and print phase (SRPKA) 2-1 
error file 3-55 

error message list phase ($RPKB) 2-10 
error sort and print phase ($RPKA) 2-1 
exception output object code 4-30 
EXCPT object code 4-30 
EXIT object code 4-30 

explanation of program organization flowcharts 2-22 
EXSR execute subroutine object code 4-30 
EXSR object code 4-30 
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extension compressions 3-18 
extension compression phase ($RPEB) 



2-3 



fetch overflow 4-6 

fields (see matching fields; input field; output field; 

control field) 
file 

error file 3-55 
file description compressions 3-17 
file description compressions phase ($RPEA) 2-3 
file input/output table 3-56 
filename table 3-57 
files (see multifiles) 

file selection and match field extraction code phase 
($RPPG) 2-11 
file translate compression 3-54 
file translate subroutine ($$PGAB) 4-41 
final output generation 1 phase ($RPSI) 2-20 
final output generation 2 phase ($RPSK) 2-20 
final segment list (Models 6, 1 0, and 1 2) 3-57 
final segment list (Model 15) 3-57 
find item in compression routine (DRGCGI) 2-25 
finding an overlay 4-84 
FIOT 3-56 
flowchart techniques 

compile-time 2-22 

general A-l 

object program 4-1 
FORCE, object code 4-30 



general object program flow 4-2 
general overlay flow 4-85 
general storage table 3-58 
generate IPCR phase ($RPPA) 2-1 1 
generate OPCR phase ($RPPB) 2-1 1 
generate R-module output phase ($RPRZ) 2-21 
get next compression routine (DRGCZH) 2-25 
get next source record routine (DRGCZN) 2-24 
GOTO object code 4-31 



half adjusting, decimal 4-27 

halt (see error) 

halt processor 4-49, 4-70, 4-71, 4-72 

parameters to 3-16 
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